حول البروسس مسج؟؟

ال thread هي الطريقة المفضلة في هذه الحالة

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  THttpThread = class(TThread)
    private
      FDownloadFrom, FDownloadTo : string;
    protected
    constructor create(DownloadFrom, DownloadTo: string);
    procedure execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses
  URLMon;

procedure TForm1.Button1Click(Sender: TObject);
var
   HttpThread: THttpThread;
begin
  HttpThread := THttpThread.create('http://www.rarlab.com/rar/pocketrar330.exe','c:\test.exe');
  HttpThread.Resume;
end;

{ HttpThread }

constructor THttpThread.create(DownloadFrom, DownloadTo: string);
begin
  inherited create(true);
  FDownloadFrom := DownloadFrom;
  FDownloadTo := DownloadTo;
end;

procedure THttpThread.execute;
begin
  inherited;
  UrlDownloadToFile(nil, PChar(FDownloadFrom), PChar(FDownloadTo), 0,nil);
  ShowMessage('done');
end;

المثال السابق عملته بإستخدام ال Threading من اجل سؤال في موقع EE، وتجد مزيد من التفصيل هنا

http://www.experts-exchange.com/Programmin...Q_21019492.html

وهذا موقع عربي

http://www.alepposoft.com/info/showthread.php?t=43

http://www.alepposoft.com/info/showthread.php?t=79

http://www.alepposoft.com/info/showthread....05&page=1&pp=14

تحياتي

و أردت إستخدام مكونات Indy

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ProgressBar1.Max:=AWorkCountMax;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position:=AWorkCount;
  Application.ProcessMessages;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  s:=IdHTTP1.Get('http://www.mysite.com/files/file2get.dat');
  ProgressBar1.Position:=0;
  ShowMessage('done');
end;

شكرا لكم جميعا

وسأجرب الكود ان شاء الله

لكن توقعت ما حدا رد وصدفة فايت عالموقع لأني وضعت الابلاغ بالبريد بس ما بعرف شو المشكلة

تحصل كثيرا معي

المشكله من المنتدى أم مني؟؟؟

على كل شكرا جزيلا وبس تضبط معي لحتى نزل البرنامج فهو خاص لعرب تيم 2000

المشكلة في المنتدى

انا لا يصلني الابلاغ البريدي من فترة