[mazik777]

Здравствуйте!!!
Цель:
Вот код программы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

unit Unit1;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdCustomHTTPServer, IdHTTPServer, StdCtrls;   type TForm1 = class(TForm) Memo1: TMemo; Edit1: TEdit; Edit2: TEdit; Start: TButton; IdHTTPServer1: TIdHTTPServer; private { Private declarations } public { Private declarations } end;   var Form1: Tform1;   implementation   {$R *.dfm}   procendure TForm1.Button1Click(Sender: TObject); var Data: Tstringlist; HTML, go: string; Pars1, Pars2: string; begin Data:=Tstringlist.Create; Data.Add('user[login]="+ Edit1.Txt); Data.Add('user[pass]="+ Edit1.Txt); Data.Add('user[submit]=Войти'); HTML:=IdHTTP1.Post(go, data); if pos('href="user/logout"', HTML)<>0 then begin   end else begin ShowMessege('Мы авторизовались'); Memo1.Lines.Add('Ошибка авторизации'); end; end;   end.

Админ: Пользуемся тегами для оформления кода!

Суть:
1)проверьте пожалуйста правильность кода((
2)Data:=Tstringlist.Create;
Data.Add('user[login]="+ Edit1.Txt);
Data.Add('user[pass]="+ Edit1.Txt);
Data.Add('user[submit]=Войти');

-это форма входа в турбобит,а мне нужно сделать на майл...Помогите очень важно,нужно

[lmikle]

Посмлтри, может они дают pop3/pop3s доступ. Будет проще сделать через специализированный протокол.

[mazik777]

Блин я так не знаю как сделать

[lmikle]

Сообщение от mazik777

Блин я так не знаю как сделать

Дык так, через парсинг страницы, как раз и будет сложнее.
А через POP3 все очень просто, есть готовые методы, которые просто вызываешь и получаешь результат.

Какой почтовик? Если mail.ru, то вот страница настройки для почтовых программ (которые, собственно, этот протокол и используют):
http://help.mail.ru/mail-help/mailer/popsmtp

А вот тут пример Indy для работы с почтой:
http://www.delphisources.ru/pages/so...et/e-mail.html
Качаешь, допиливаешь под себя и profit...

[mazik777]

Помогите сделать парсер(((
Нужно чтобы смотрел из тхт файла брал по одному и смотрел есть ли сообщения с (например:@vk

Оплачу кто поможет очень нужно скайп mazzik666

[M.A.D.M.A.N.]

Не нужно никого оплакивать.
Обращайтесь в раздел работы: http://www.delphisources.ru/forum/forumdisplay.php?f=34