Cześć,
ostatnio na szybko zrobiłem prosty program, który ma mi pomóc przy wrzucaniu treści do social mediów poprzez stronę WWW. Mniejsza o szczegóły - mam problem z umieszczaniem obrazków na serwerze FTP. Do wysyłania plików używam takiego oto kodu (korzystam z Indy10):
function FTPWyslijPlik (zrodlo, cel:string; host: string; user: string; haslo: string): boolean;
var
FTP: TIdFTP;
begin
FTP := TIdFTP.Create(nil);
FTP.Host := host;
FTP.Username := user;
FTP.Password := haslo;
FTP.Passive := true;
try
FTP.Connect();
FTP.Put(zrodlo, cel);
if FTP.Connected = true then FTP.Disconnect;
result := true;
except
on exception do result := false;
end;
FTP.Free;
end;
Problem w tym, że plik typu plik HTML strony WWW przesyłany jest poprawnie, natomiast grafika na stronie nie jest wyświetlana. Lokalnie (na komputerze) strona wraz z grafiką jest poprawnie wyświetlana. Natomiast po przesłaniu plików na serwer FTP, strona wyświetla wszystko tylko nie grafikę. Gdy porównywałem wielkość pliku graficznego lokalnie i po przesłaniu tą metodą, wówczas plik po przesłaniu jest mniejszy (ucięty?) niż plik, który mam lokalnie. Na początku myślałem, że to wina serwera FTP, natomiast próbowałem tego samego w innym serwisie i problem ponownie występuje.
Czy ta metoda przesyłania plików ma jakąś wadę? W kodzie mam błąd?
Pozdrawiam!