IdFTP nie przesyła całęgo pliku na serwer FTP

Odpowiedz Nowy wątek
2014-11-08 19:33
lopki23
0

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

Pozostało 580 znaków

2014-11-08 19:55

Ustaw w IdFTP TransferType na ftBinary bo pewnie masz domyślnie ftASCII.


Nie odpowiadam na PW w sprawie pomocy programistycznej.
Pytania zadawaj na forum, bo:
od tego ono jest ;) | celowo nie zawracasz gitary | przeczyta to więcej osób a więc większe szanse że ktoś pomoże.

Pozostało 580 znaków

2014-11-08 21:28
lopki23
0

oczywiście to było to. dzięki. Zaznaczcie odpowiedź jak możecie.

dawno nie używałem idftp, więc nie pamiętałem o tym. pozdro

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0