Autor Beitrag
nepleurepas
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 164

Win XP

BeitragVerfasst: Mo 31.03.08 18:27 
Hallo,
ich wollte ein kleines, sehr einfaches programm machen um mit einen ftp server zu connecten, um indy etwas kennen zu lernen. Ich versteh einfach warum folgendes nicht funktioniert:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
function getit(adress, name, pass: string): Tstrings;
begin
with form1 do
 begin
 idFTP1.Username:= name;
 idFTP1.Password:= pass;
 idFTP1.Host:= adress;
 idFTP1.Connect;
 idFTP1.List(result);
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var name, adress, pass: string;
begin
name:= edit1.text;
adress:= edit2.Text;
pass:= edit3.Text;

listbox1.Items:= getit(adress,name,pass);

end;


es erscheint eine meldung "login incorrect".

an den zugangsdaten liegts nich, habs mit filezilla getestet.

Kann mir jemand helfen?? wär sehr dankbar
stefan


Moderiert von user profile iconChristian S.: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mo 31.03.2008 um 18:33
nepleurepas Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 164

Win XP

BeitragVerfasst: Mo 31.03.08 18:58 
jetz versteh ich die welt nich mehr...
hab mir mal mit showmessage die sachen anzeigen lassen, die in der function getit ankommen.

showmessage(name) in zeile 5 im code oben lieferte "Form1"!!!!!

was is da los??

ich verzweifel
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Mo 31.03.08 19:02 
name ist bei dir eine lokale Variable aber auch eine Eigenchaft von TForm. Benenn sie um.
nepleurepas Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 164

Win XP

BeitragVerfasst: Mo 31.03.08 19:03 
ahhhh, right, danke. sowas dummes aber auch ;-)