이제 델파이를 시작하는 초보 입니다.
NMFTP 콤포넌트를 사용해 보았는데 파일 싸이즈가 크면 에러가 나서
INDY FTP 콤포넌트를 사용하고 있는데요..
NMFTP 에서는
procedure TForm1.NMFTP1PacketRecvd(Sender: TObject);
var
Percent: Integer;
begin
Percent:= (NMFTP1.BytesRecvd * 100) div NMFTP1.BytesTotal;
Gauge2.Progress := Percent;
Label1.Caption:= Format('%s %s 바이트 중 %s 바이트 받음',
['전체', FormatNumber(NMFTP1.BytesTotal), FormatNumber(NMFTP1.BytesRecvd)]);
end;
이런식에 코드면 다운상황이 표시 되는데
INDY FTP 에서는 어떻게 다운로드 상태를 포스트그래스바로 표시할수 있을까요..
Gauge2.Progress := aWorkCount div IdFTP1.RecvBufferSize;
도무지 INDY FTP 는 이벤트도 적고 잘 모르겠습니다.
빠른 답변을 부탁드립니다.
우선 다운받는곳에선..
User := 'nan';
Password := 'babo';
Host := '22.222.222.22';
Connect;
TransferType := ftBinary;
ProgressBar.Max := Size('test.dat');
Get('test.dat', 'test.dat', true);
Disconnect;
글고.. onWork 이벤트에서..
ProgressBar.Position := AWorkCount;
하면 될겁니다.