Thema: Delphi Problem mit OnWork

Einzelnen Beitrag anzeigen

Delphi Code Anfänger

Registriert seit: 30. Jan 2008
72 Beiträge
 
#1

Problem mit OnWork

  Alt 30. Mär 2008, 16:49
Habe ein kleines Problem. Ich benutze die TWebUpdate Komponente aus diesem Thread:
http://www.delphipraxis.net/internal...ght=twebupdate

Und habe folgendes Problem:

Zitat von Pif:
Hallo Pfoto
Danke für deine hilfe, das mit dem package habsch begriffen.
aber wenn ich das installieren will kommt ein fehler im quelltext der komponente

fIdHTTP.OnWork := InternalOnWork; [DCC Fehler] WebUpdateThread.pas(39): E2009 Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'

Mach ich da was falsch oder liegt es am quellcode?

Da ich denke das es ein allgemeines Problem ist und es hier mehr Beachtung hat stelle ich es hier nochmal.

Das ist der Code:

Delphi-Quellcode:
procedure TDownloadThread.Execute;
var
  fs: TFileStream;
begin
  fIdHTTP := TIdHTTP.Create(nil);
  fIdHTTP.OnWork := InternalOnWork;
  fs := TFileStream.Create (fPfad + fName, fmCreate or fmShareExclusive);
  try
    fIdHTTP.Get(fURL + fName, fs);
  finally
    fs.Free;
    fIdHTTP.Free;
  end;
end;

procedure TDownloadThread.InternalOnWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
  FWorkCount := AWorkCount;
  Synchronize(DoNotifyWork);
end;
Ich hoffe es kann mir einer helfen.
  Mit Zitat antworten Zitat