Thema: Delphi Fehler be IdHTTP

Einzelnen Beitrag anzeigen

n3r0f0x

Registriert seit: 20. Sep 2009
9 Beiträge
 
#1

Fehler be IdHTTP

  Alt 28. Sep 2009, 16:59
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
  Mit Zitat antworten Zitat