Greetings,
I've used your ftp component and I had some problems regarding the
bin/asc transfer mode. Although your comments inside source code are
clear, it's not easy to realize that binary property is useless unless
you call the TypeSetAsync.
I've made some changes in your code in order to enforce the Binary
property role. I'd like to suggest you take a look at it. I'm sure users
will be happy to use a more intuitive component.
Best regards,
Vilson
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* *}
procedure TCustomFtpCli.ConnectAsync;
begin
HighLevelAsync(ftpConnectAsync,
[ftpFctOpen, ftpFctAuth, ftpFctUser, ftpFctPass,
ftpFctAcct, *ftpFctTypeSet*]);
end;
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* *}
procedure TCustomFtpCli.SetBinary(Value : Boolean);
begin
if Value then
FType := 'I'
else
FType := 'A';
* if Connected then
TypeSetAsync;
*end;
--
*José Vilson de Mello de Farias*
/Analista de Sistemas
//SSE - Segurança Pública/
*DÍGITRO TECNOLOGIA*
*E-mail:* [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
*Messenger: [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
*Fone:* (0xx48) 3281-7314
*Fax:* (0xx48) 3281-7000
*Site:* www.digitro.com.br <http://www.digitro.com.br%20>
<http://www.digitro.com.br%20>
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
