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
public
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
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
FS:=TFileStream
.
Create(
'captcha.jpg'
,FMCreate);
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'
);
end
;
end
.