Здравствуйте!!!
Цель:
Вот код программы:
Код:
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]=Войти');
-это форма входа в турбобит,а мне нужно сделать на майл...Помогите очень важно,нужно