Forum: Programmieren allgemein
Delphi
by Luckie,
14. Aug 2011
Ich mag Routinen mit langen Argumentenlisten nicht. ;)
Forum: Programmieren allgemein
Delphi
by Luckie,
14. Aug 2011
Formular:
type
TForm17 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
public
procedure UpdateLabel(BytesDone: Integer);
Forum: Programmieren allgemein
Delphi
by Luckie,
14. Aug 2011
Wozu die ThreadProc? Und warum machst du nicht das, was dir Delphi sagt und fügst an der betreffenden Stelle den Thread Code ein mit: IdHTTP:Get(....);
Und das
procedure IdhttpThread.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Int64);
begin
if Form1.updatestatus = 1 then
Form1.ProgressBar1.Position := AWorkCount;
if Form1.updatestatus = 2 then
...