![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() собственно говоря пишу прогу она еще дико недоработанная и нубская так что не пинайте а подскажите лучше вот текст:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, jpeg; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Memo2: TMemo; Memo3: TMemo; Label1: TLabel; Label2: TLabel; Image1: TImage; Button3: TButton; IdHTTP1: TIdHTTP; regestration: TButton; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure regestrationClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; inet:string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.LoadFromFile('d:\temp\delphi\Projects\blogru\acc.txt'); end; procedure TForm1.Button2Click(Sender: TObject); var a,a1,a2: string; i,s,etc:integer; begin // For s:=0 to Memo2.Lines.Count-1 do // ShowMessage(IntToStr(Integer(@i))); etc:=0; for i:=0 to etc do begin a:= memo1.Lines[i]; a1:= Copy(a,1,Pos(':',a)-1); a2:= copy (a,Pos(':',a)+1,20); memo2.Text:=a1; memo3.Text:=a2; memo2.Lines.SaveToFile('File1.txt'); memo3.Lines.SaveToFile('File2.txt'); end; end; procedure TForm1.Button3Click(Sender: TObject); var FS:TFileStream; begin //=IdHTTP1.Get('http://blog.ru/registration/step1?backurl=http%3A%2F%2Fblog.ru%2F'); FS:=TFileStream.Create('captcha.jpg',FMCreate); IdHTTP1.Get('http://blog.ru/inc/captcha/image.php', FS); FS.Free; Image1.Picture.LoadFromFile('captcha.jpg'); end; procedure TForm1.regestrationClick(Sender: TObject); var Data:TStringList; begin Data:=TStringList.Create; Data.Add('user_data[nick]='+edit1.Text); Data.Add('user_data[email]='+memo2.Text); Data.Add('user_data[password]='+memo3.Text); Data.Add('user_data[password_confirm]='+memo3.Text); Data.Add('user_data[sex]=female'); Data.Add('user_data[ code]='+Edit2.Text); Data.Add('user_data[agreement]=1'); inet:=IdHTTP1.Post('http://blog.ru/registration/step1/submit', Data); end; end. компилятор не выдает никаких ошибок а вот при отправке пост запроса вываливаеться вот такая беда: вот снифер: подскажите плиз в чем беда?? Последний раз редактировалось maloy_ya, 09.07.2010 в 00:06. |