[mazik777]

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

Код:

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