Ftp XE5

[odisej]

Sicer sm dal objavo tudi na Emb forum, pa vseeno. Spodaj moja koda. Če prevedem moj PrettyFlow z D 2007 dela vse ok, če prevedem isto kodo z XE5, spodnja koda na ftp sicer prenese zip, ampak ni popoln in pol javlja, ko ga nekdo potegne dol, da ni ok zip.

Koda: Izberi vse

procedure TForm1.Button1Click(Sender: TObject);
var
  ftp: TIdFTP;
begin
  ftp := TIdFTP.Create(nil);
  try
    ftp.Host := 'host';
    ftp.Port := 21;
    ftp.Username := 'user';
    ftp.Password := 'pass';
    ftp.Passive := true;
    //ftp.OnWorkBegin := ftpWorkBegin;
    //ftp.OnWork := ftpWork;
    ftp.Connect;

    ftp.Put('D:\Projects\My Web Sites\sources\prettydbexplorer1.zip');
  finally
    ftp.Disconnect;
    ftp.Free;
  end;
end;

[odisej]

Ok, so mi povedal. Nekoč so menjal TransferType iz binary na ascii, sam pa tega nisem nastavljal.