Hilfe mit IdHTTP - IOHandler value is not valid...

[smartmod]

Zitat von Chris1986:

Zitat von smartmod:

Zitat von DGL-luke:

sag uns mal ob du überhaupt einen IOHandler bei deinem IdHTTP registriert hast. davon sieht man nämlich hier nix.

Hallo!

Bin nicht so wirklich into Delphi... Wie kann ich das überprüfen/machen?

wenn du auf mich hören würdest, wäre dein Problem schon gelöst

Nope, leider nicht... Hab den Code zwischenzeitlich angepasst:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, Menus, Grids, StdCtrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdMultipartFormData;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    Image1: TImage;
    Datei1: TMenuItem;
    Bearbeiten1: TMenuItem;
    Bearbeiten2: TMenuItem;
    NeueBestellung1: TMenuItem;
    Datei2: TMenuItem;
    Beenden1: TMenuItem;
    ListBox1: TListBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Label9: TLabel;
    Edit9: TEdit;
    Label10: TLabel;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit15: TEdit;
    Label16: TLabel;
    Label17: TLabel;
    Edit16: TEdit;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Button1: TButton;
    Button2: TButton;
    GroupBox3: TGroupBox;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    GroupBox4: TGroupBox;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Button9: TButton;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    Edit17: TEdit;
    Edit18: TEdit;
    procedure Label19Click(Sender: TObject);
    procedure Label18Click(Sender: TObject);
    procedure Label20Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Label19Click(Sender: TObject);
begin
  if Label19.Font.Color = clSilver then
    begin
    Label19.Font.Color := clGreen;
    end
  else
  begin
    Label19.Font.Color := clSilver;
  end;
end;

procedure TForm1.Label18Click(Sender: TObject);
begin
  if Label18.Font.Color = clSilver then
    begin
    Label18.Font.Color := clGreen;
    end
  else
  begin
    Label18.Font.Color := clSilver;
  end;
end;

procedure TForm1.Label20Click(Sender: TObject);
begin
  if Label20.Font.Color = clSilver then
    begin
    Label20.Font.Color := clGreen;
    end
  else
  begin
    Label20.Font.Color := clSilver;
  end;

end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.Button8Click(Sender: TObject);
var
  data: TStringList;
begin
  data := TStringList.Create;
  try
    { add the used parameters for the script  }
    data.Add('sret=http://www.ups.com/content/de/de/index.jsx');
    data.Add('uret=http://www.ups.com/content/de/de/index.jsx');
    data.Add('userid=smartmod');
    data.Add('password=xxxxxxxx');
    {Call the Post method of TIdHTTP and read the result into TMemo}
    Memo1.Lines.Add(idhttp1.Post('https://wwwapps.ups.com/cclamp/login', data));
  finally
    data.Free;
  end;
end;

end.

(Hab mal alles gepostet zur besseren Übersicht)

... aber bekomme beim Click auf Button8 immer noch "IOHandler value is not valid!"

Danke für Eure Hilfe übrigens!

Edit: Ach ja, wenn ich das Ding über eine HTML Seite aufrufe (also einen Button mit Post Funktion mache) dann geht es ohne Probleme.