Nabend,
ich habe alles soweit fertig doch jetzt habe ich gedacht das mit dem hochladen ist ja nur eine Kleinigkeit..
ich habe mir das Tut bei :
http://www.tutorials.delphi-source.d.../file004.shtml durch gelesen und auch alles so gemacht wie dort beschrieben.
Delphi-Quellcode:
procedure TProg.FormCreate(Sender: TObject);
begin
clicked:=0;
ftp.Host:='
xxx';
ftp.Username:='
xxx';
ftp.Password:='
xxx';
ftp.Connect;
ftp.Login;
ftp.ChangeDir('
/bilder/');
if Listbox1.Count < 1
then uploadbt.Enabled:=False
else
uploadbt.Enabled:=True
end;
Delphi-Quellcode:
procedure TProg.uploadbtClick(Sender: TObject);
begin
//showmessage(extractfilename(ListBox1.Items[ListBox1.ItemIndex]));
ftp.Put(extractfilename(ListBox1.Items[ListBox1.ItemIndex]));
end;
Was ich dann aber auf dem
FTP erhalte ist:
zb:
stou.UGaapv
oder
.nfsE125
Also reiner Schrott..was mache ich falsch?
Danke schonma
mfg Robert
Was mir grade noch auffält das ich beim schließen ein "Stack Überlauf" Fehler bekomme...