Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Thread--------------------------------
- unit Unit2;
- interface
- uses
- Classes , IdHTTP;
- type
- TPrimeThrd = class(TThread)
- private
- idHTTP1: TidHTTP;
- FResultString: string;
- protected
- procedure UpdateResults;
- procedure Execute; override;
- public
- filename:string;
- end;
- implementation
- uses SysUtils, Dialogs, unit1;
- procedure TPrimeThrd.UpdateResults;
- begin
- Form1.Memo1.Lines.Add(FResultString)
- end;
- procedure TPrimeThrd.Execute;
- begin
- idhttp1:=TIdHTTP.Create(nil);
- FResultString:=idhttp1.Get(filename);
- Synchronize(UpdateResults);
- end;
- end.
- ----------------main form----
- procedure TForm1.Button5Click(Sender: TObject);
- var
- newthread1,newthread2:TPrimeThrd;
- begin
- newthread1:=TPrimeThrd.Create(true);
- newthread1.FreeOnTerminate:=true;
- newthread1.filename:=listbox1.Items[0];
- newthread1.Resume;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement