TidFTP - envio de arquivo binário

Delphi

10/08/2005

Olá,

Estou precisando de uma ajuda no componente TidFTP, quando tento enviar arquivos binários para meu servidor(HP-UX), não sei pq os aquivos acabam sendo ´enviados truncados´ ou mesmo ocorrre algum problema quando o arquivo é binário.

Quando vou enviar arquivos binários sempre faço a troca TransferType para ftBinary, mantendo o RecvBufferSize e SendBufferSize com 32768.

fiz um teste enviando via windows/dos e depois via meu programa, veja abaixo como ficou o tamanho dos mesmos aquivos.

Enviados via FTP(windows-DOS);
-rwxrwxrwx 1 informix informix 421950 Aug 10 08:24 trb0500.4gi
-rwxrwxrwx 1 informix informix 2894 Aug 10 08:24 trb0500.frm
-rwxrwxrwx 1 informix informix 6115 Mar 15 14:05 trb0500.iem
-rwxrwxrwx 1 informix informix 2683 Aug 10 08:24 trb05001.frm

Via TidFTP, minha rotina.
-rwxrwxrwx 1 informix informix 843900 Aug 10 08:26 trb0500.4gi
-rwxrwxrwx 1 informix informix 5788 Aug 10 08:26 trb0500.frm
-rwxrwxrwx 1 informix informix 6115 Mar 15 14:05 trb0500.iem
-rwxrwxrwx 1 informix informix 5366 Aug 10 08:26 trb05001.frm

Para arquivos texto isso não ocorre, mas quando estou trabalhando com arquivos binários, estou tendo esse problema.

Algum já passou por um problema assim ?


Vieira

Vieira

Curtidas 0
POSTAR