Forum: Netzwerke
Delphi
by DRPEnc,
16. Jul 2004
procedure TMainForm.ConnectButtonClick(Sender: TObject);
var idftp:Tidftp;
begin
idftp:=TIdftp.Create(Self);
idftp.Username:= UserIDEdit.text;
idftp.Password:= PasswordEdit.Text;
idftp.Port:=StrToInt(Portedit.Text);
idftp.Host:= FtpServerEdit.text;
try
idFTP1.Connect;
Forum: Netzwerke
Delphi
by DRPEnc,
16. Jul 2004
Es funktioniert ja, bis auf den port.
Ich dachte, ich verändere die demo um es mir leichter
zu machen.
Ich kann ja noch dazulernen. Kannst Du mir einen
link zu der tematik geben.
Forum: Netzwerke
Delphi
by DRPEnc,
16. Jul 2004
Irgendwie funzen nur die unteren anweisungen.
Könntest Du mir helfen?
Wie gesagt ist hier kein port vorgesehen.
procedure TMainForm.ConnectButtonClick(Sender: TObject);
begin
ConnectButton.Enabled := false;
if IdFTP1.Connected then try
Forum: Netzwerke
Delphi
by DRPEnc,
16. Jul 2004
procedure TMainForm.ConnectButtonClick(Sender: TObject);
var idftp:Tidftp;
begin
idftp:=TIdftp.Create(Self);
idftp.Username:= UserIDEdit.Text;
idftp.Password:= PasswordEdit.Text;
idftp.Port:=StrToInt(PortEdit.text);
idftp.Host:= FtpServerEdit.Text;
//begin
ConnectButton.Enabled := false;
Forum: Netzwerke
Delphi
by DRPEnc,
16. Jul 2004
Es ist das IDFTPDemo aus den IndyDemos für Delphi 6.
Nur fehlt dort die Port auswahl. Dort wird 21 hergenommen.
Forum: Netzwerke
Delphi
by DRPEnc,
16. Jul 2004
procedure TMainForm.ConnectButtonClick(Sender: TObject);
begin
ConnectButton.Enabled := false;
if IdFTP1.Connected then try
if TransferrignData then IdFTP1.Abort;
IdFTP1.Quit;
finally
CurrentDirEdit.Text := '/';
DirectoryListBox.Items.Clear;
SetFunctionButtons(false);