Приручение idFTP.get

[AnKor94]

Программа аплодит несколько файлов на ftp сервер.
При нажатии на кнопку отправить она "не отвечает" пока не закончит процесс. Выглядит это очень некрасиво.
Как приручить процесс отправки? Лучше всего с прогрессбаром..

[Человек_Борща]

Поток TThread и прогрессбар, методы OnWorkbegin,OnWork,OnWorkEnd.

Вот для TidHTTP, поток загрузки.

unit Unit2;

interface

uses
  Classes,IdHTTP,IdComponent;

type
  TidThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure HttpWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
    procedure HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
    procedure HTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
  end;

implementation

uses Unit1;

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TidThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TidThread }

procedure TidThread.Execute;
var
  sfile:TMemoryStream;
  http:TIdHTTP; //обьявляем компонент
begin
  sFile:=TMemoryStream.Create;
  http:=TIdHTTP.Create(nil); //создаём компонент(Динамически в потоке)
  try
присвайваем ему событийные процедуры
  http.OnWork:=HttpWork; //загружаем файл
  http.OnWorkBegin:=HTTPWorkBegin; //начало работы
  http.OnWorkEnd:=HTTPWorkEnd; //конец работы

//грузм файл в memoryStream
  http.get(Form1.FileLinkEdit.Text,Sfile);
//сохраняем
  Sfile.SaveToFile('TEST.exe');
  finally
//отваливаем 
  sfile.Free;
  http.Free;
  end;
  { Place thread code here }
end;


procedure TidThread.HttpWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
    if AWorkMode=WmRead then //режим чтение
  Form1.FileProgress.Progress:=AWorkCount; //передаём в прогресс число прочитанных байт
end;

procedure TidThread.HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
    if AWorkMode=WmRead then//режим чтение
  Form1.FileProgress.MaxValue:=AWorkCountMax; //передаём в Progress.MAX значение, сколько всего байт в файле
end;

procedure TidThread.HTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
if AWorkMode=WmRead then //режим чтение файла
 Form1.FileProgress.Progress:=0; //устанавливаем прогресс в 0
end;


end.

код для TidHTTP
Вместо TprogressBar используется TGuage, разницы в них не много.
это код потока одного и тестовых моих примеров. Думаю не сложно.
АНАЛОГИЧНО и 100% также можно и для idFTP. Удачи!

[tarakan1983]

Сообщение от Человек_Борща

Поток TThread и прогрессбар, методы OnWorkbegin,OnWork,OnWorkEnd.

//присвайваем ему событийные процедуры
  http.OnWork:=HttpWork; //загружаем файл
  http.OnWorkBegin:=HTTPWorkBegin; //начало работы
  http.OnWorkEnd:=HTTPWorkEnd; //конец работы

Подскажите, почему компилятор ругается на эти строки
[DCC Error] ThFTPWorkingU.pas(40): E2009 Incompatible types: 'Parameter lists differ'

[Человек_Борща]

[DCC Error] ThFTPWorkingU.pas(40): E2009 Incompatible types: 'Parameter lists differ'

Обновите объявленные методы OnWorkbegin,OnWork,OnWorkEnd в соотв. с их прототипами из событий компонента. Код был для Delphi 7.

[tarakan1983]

Сообщение от Человек_Борща

Обновите объявленные методы OnWorkbegin,OnWork,OnWorkEnd в соотв. с их прототипами из событий компонента. Код был для Delphi 7.

Да там вроде ничего не поменялось, кроме Int64, но их я менял, ошибка та же
вот прям из компоненты

procedure TFmMain.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin

end;

procedure TFmMain.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin

end;

procedure TFmMain.IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin

end;

Вот полный код

unit FTPThread;
interface
uses
  Classes, IdFtp, IdComponent;
type
  WorkThread = class(TThread)
  private
    ftpHost, ftpDir,
    ftpFile, ftpLocalPath,
    ftpUser, ftpPasswd: String;
    aFtp: TIdFTP;
    destructor Destroy;
  protected
    constructor Create(CreateSuspended: boolean);
    procedure Execute; override;
    procedure FTPWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Int64);
    procedure FTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64);
  end;
implementation
uses main;
{ WorkThread }
procedure WorkThread.FTPWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Int64);
begin
  Form1.ProgressBar1.Position := AWorkCount;
end;
procedure WorkThread.FTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64);
begin
  Form1.ProgressBar1.Max := aFtp.Size(ftpFile);
end;
constructor WorkThread.Create;
begin
  ftpHost := 'ftp.ncdc.noaa.gov';
  ftpDir := '/pub/data/inventories/';
  ftpFile := 'ISH-HISTORY.TXT';
  ftpUser := 'ftp';
  ftpPasswd := 'ftp@example.com';
  ftpLocalPath := 'D:\' + ftpFile;
  aFtp := TIdFTP.Create(nil);
  aFtp.OnWork := FTPWork;
  aFtp.OnWorkBegin := FTPWorkBegin;
  inherited Create(CreateSuspended);
end;
destructor WorkThread.Destroy;
begin
  aFtp.Free;
  inherited Destroy;
end;
procedure WorkThread.Execute;
begin
  { Place thread code here }
  aFtp.Connect;
  aFtp.ChangeDir(ftpDir);
  aFtp.Get(ftpFile, ftpLocalPath);
  aFtp.Disconnect;
end;
end.

Пересмотрел свой код еще раз на форуме и понял, что лохонулся, спасибо Человек_Борща

[StriderX]

Кстати, в XE7 появился System.Threading, документации практически нет, но выглядит всё довольно безобидным: http://www.youtube.com/watch?v=rZfux...BzPhbgA#t=1610

[Человек_Борща]

Кстати, в XE7 появился System.Threading

Может зачатки потокобезопасного RTL, это сейчас модно и эффективно.

[Пепел Феникса]

Сообщение от Человек_Борща

Может зачатки потокобезопасного RTL, это сейчас модно и эффективно.

ну это довольно удобно.
правда как обычно в Делфи это идет из иной среды позаимствовали.
Неплохо конечно, развитие.