Hi,
ich habe nach einem Tuturial(
Klick Mich) einen script erstell der an eine PHP datei auf einen Webserver eine nachricht sendet. Aber leider functioniert es nicht ganz so wie ich möchte
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
IdHTTP1: TIdHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var Strings: TStringList;
begin
Strings := TStringList.Create;
Button1.Enabled := False;
try
Strings.Add('
mode=write');
Strings.Add('
user='+Edit1.Text);
Strings.Add('
pw='+Edit2.Text);
Strings.Add('
code='+Memo1.Lines.Text);
try
HTTP.Post('
http://www.deinhost.de/interface.php', Strings);
except
on E:
Exception do
showmessage('
Error encountered during POST: ' + E.
Message);
end;
finally
Strings.Free;
end;
Button1.Enabled := True;
end;
end.
Als Fehlermeldung bekomme ich:
Code:
[DCC Error] Unit1.pas(47): E2003 Undeclared identifier: 'HTTP'
wäre nett wenn ihr mir helfen könntet
mfg
n3r0f0x