Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Delphi (https://forum.antichat.xyz/showthread.php?t=197271)

Sunstrider 18.04.2010 19:36

Delphi
 
Народ выучил основы,что теперь (циклы,разветление и тд.....)все понимаю как терь перейти в инди и начинать писать чекеры и тд

stepashka_ 18.04.2010 19:47

Цитата:

Сообщение от Sunstrider
Народ выучил основы,что теперь (циклы,разветление и тд.....)все понимаю как терь перейти в инди и начинать писать чекеры и тд

учи post и get запросы

Sunstrider 18.04.2010 19:48

Цитата:

Сообщение от stepashka_
учи post и get запросы

по каким учебникам,гайдом)

aydar 18.04.2010 20:16

учить indy и логику

Sunstrider 18.04.2010 20:18

а ссылки где учить можна ?

JnK 18.04.2010 20:26

Тык

RedFern.89 18.04.2010 20:29

Тыц

Sunstrider 18.04.2010 20:29

а можно фак делфи + пост запросы

wolmer 18.04.2010 20:38

Цитата:

Сообщение от Sunstrider
а можно фак делфи + пост запросы

А еще можно вбить в гугл "примеры работы с idhttp", и посмотреть сорцы "своего" чекера

RedFern.89 18.04.2010 20:44

мини фак от меня

Q: Как отправить запрос?
A:
Код:

var
  Data: TStringList;
  HTTP : TidHTTP;
begin
  Data := TStringList.Create;
  HTTP := TIdHTTP.Create(nil);
 
  HTTP.AllowCookies := True; // Врубаем каки
  HTTP.HandleRedirects := True; // Врубаем автоматическую переадресацию
 
 { Данные для запроса }
  Data.Add('act=login');
  Data.Add(email=mail@mail.ru');
  Data.Add('pass=password');
 
// Шлем запрос
  HTTP.Post('http://login.vk.com/', data);

// Читим паять
Data.Free;
HTTP.Free;

end;

Q: Как запросить страницу?
A:
Код:

var
  Data: TStringList;
  HTTP : TidHTTP;
begin
  Data := TStringList.Create;
  HTTP := TIdHTTP.Create(nil);
 
  HTTP.AllowCookies := True; // Врубаем каки
  HTTP.HandleRedirects := True; // Врубаем автоматическую переадресацию
 

// Шлем запрос
  Data.Text := HTTP.Get('http://vkontakte.ru/profile.php');

// Читим паять
Data.Free;
HTTP.Free;

end;



Время: 12:25