noob hat problem mit idHTTP

[k4ni]

hey leute,

ich hab dieses tut versucht und bekomms einfahc nicht hin.
Wenn ichs öffnen will bekomm ich den error.

Bild entfernt

Was ist falsch?
(project im anhang)

[edit=Matze]Bild im Anhang untergebracht. Die Auflösung zerstört das ganze Layout und Imageshack ist das langsamste, was ich kenne. MfG, Matze[/edit]

[mkinzler]

Du hast vergessen die Unit mit der Form zu Posten.
Aber hast du die Methode auch im Interface der Klasse deklariert?

[k4ni]

Zitat von mkinzler:

Du hast vergessen die Unit mit der Form zu Posten.
Aber hast du die Methode auch im Interface der Klasse deklariert?

sry, habs updated, müsste jetzt gehen.
Was du mitn 2. satz gemeint hast, kp xD

[mkinzler]

Wie ich vermutet habe, fehlen die Methodendeklaratioenne in der Klasse:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    IdHTTP: TIdHTTP;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedLabel: TLabel;
    Status: TLabel;
    Progress: TProgressBar;
private
    { Private-Deklarationen }
    FTime: Longword;                  //Beide Variablen werden für die kb/sec anzeige gebraucht 
    FBytes: Longword;                 // --"--
  public
    { Public-Deklarationen }
      procedure IdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
...
  end;

Außerdem müssen diese mit der entprecheneden Eventproperty verbunden werden.

[k4ni]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    IdHTTP: TIdHTTP;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedLabel: TLabel;
    Status: TLabel;
    Progress: TProgressBar;
    procedure Button1Click(Sender: TObject);
private
    { Private-Deklarationen }
    FTime: Longword;                  //Beide Variablen werden für die kb/sec anzeige gebraucht
    FBytes: Longword;                 // --"--
  public
    { Public-Deklarationen }
      procedure IdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
      procedure TForm1.IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode;
    end;

var
  Form1: TForm1;

const
  cFileSplitSize : Int64 = 40*1024;   //40 KB größe stücke wird die Datei zerhackt

implementation
...

so also?

[mkinzler]

TForm1 = class(TForm)
...
procedure TForm1.IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode;
...

[k4ni]

...xD
http://img520.imageshack.us/img520/8333/errorlm6.jpg

[mkinzler]

Da fehlen Klammern:

Delphi-Quellcode:

  procedure IdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode);
   procedure TForm1.IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode);

[k4ni]

ich glaub du hast das gemeint:

procedure IdHTTPWorkBegin(ASender: TObject; AWorkMode): TWorkMode;
procedure TForm1.IdHTTPWork(ASender: TObject; AWorkMode): TWorkMode;


klappt trotzdem nicht..

[mkinzler]

Habe die Klammern nun richtig gesetzt.