Problem z serwerem FTP

0

Witam!
Problem jest następujący: na jednym formie mam obiekt

TIdFTP

. Metoda Connect(true)

 owszem działa bez zarzutu. Tyle tylko, że do tego mam jeszcze dynamiczną tablicę obiektów <code class="delphi">TIdFTP

i wykonanie polecenia:

GFTP :array of TIdFTP;

begin
 inc(il);
 SetLength(GFTP,il);
 GFTP[il]:=TIdFTP.Create(fGlowny);
 GFTP[il].OnConnected:=polaczenie;
 GFTP[il].Name:='sFTP'+inttostr(il);
 GFTP[il].Tag:=il;
 GFTP[il].Host:=adres;
 GFTP[il].User:=user;
 GFTP[il].Password:=pass;
 GFTP[il].Port:=strtoint(port);
 GFTP[il].Connect(true);
end;

niby owszem działa, ale wcale się nie loguje (co sugeruje

true

przy Connect

). Dodatkowo wszelka operacja operacja wykonana na tym obiekcie, powoduje wystąpienie błędu o treści identycznej z ostatnią odpowiedzią serwera (w tym przypadku tekstu powitania). Żeby było jeszcze zabawniej, to polecenie <code class="delphi">Disconnect

dla niedynamicznego TIdFTP

 również powoduje wystąpienie błędu...

Ratunku!
0

Po raz n-ty ten sam problem... Setlength(i) ustawia liczbe elementow i... Dynamiczne tablice indeksuje sie od 0. Czyli to chyba logiczne, że największy możliwy index to i-1.

// do postu ponizej. Przeciez nie napisałem, że po poprawieniu tego zacznie wszystko działać.

0

To nie to. Zdaję sobie z tego sprawę i to już poprawiłem (bo przecież wyskakiwałby błąd 'Index out of bounds' cy cuś takiego). Poza tym nie wyskakiwałby błąd przy rozłączaniu tego niedynamicznego TIdFTP.

Nie mówiąc już o tym, że, dla spawdzianu, nie używałem dynamicznych serwerów, tylko dodałem drugi niedynamiczny. I co gorsza, problem nie zniknął - dalej tylko łączył, a nie logował, a Disconnect zgłaszał błąd... :-/

Dodatkowo, przy terminacji programu, wyskakuje błąd 'Invalid pointer operation' i pojawia sie ładne okienko (bez typowego windowsowskiego znaczka błędu) 'Runtime eror 217...'

Hmmm...
Jeden problem zniknął, to pojawił się drugi. Może i owszem errory nie wyskakują (choć dalej nie loguje się samoczynnie i musze wysyłać polecenia do serwera - user i pass), ale w procedurze polaczenie (OnConnect dynamicznego serwera) wykonuje wszystkie zadane mu polecenia i ... wiesza się.

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