Witam, mam prosty kodzik:
var
I: Integer;
begin
FTP.Host := SerwerEdit.Text;
FTP.Username := UzytkownikEdit.Text;
FTP.Password := HasloEdit.Text;
FTP.Passive := False;
try
FTP.Connect;
for I := 0 to ZdjeciaListBox.Items.Count - 1 do
begin
FTP.Put(ZdjeciaListBox.Items[I], ExtractFileName(ZdjeciaListBox.Items[I]));
Zdjecia[I] := SerwerZdjec + ExtractFileName(ZdjeciaListBox.Items[I]);
end;
// FTP.Quit;
FTP.Disconnect;
ShowMessage('Wysyłanie zdjęć na serwer zakończone pomyślnie.');
except
on E: Exception do
ShowMessage(E.Message);
end;
który wstawia mi pliki na serwer FTP, testowałem go na plikach graficznych bmp jpg png < 1mb.
pliki pojawiają się na serwerze, ale brakuje im kilka lub kilkadziesiąt kB. Na przykład obrazek ma 333kB a na serwerze 330kB. I nie można go otworzyć gdyż jest 'zepsuty'.
Pytanie czy kwestia komponentu czy może serwera (serwer darmowy testowy w cba.pl).
pozdrawiam i proszę o pomoc