Hi!
Folgendes Problem:
Ich lade eine Datei hoch bei Uploaded.to, via
FTP.
Das klappt ein paar mal, irgendwann gibt es aber eine
Access Violation -> Lesen von Adresse 0000000
Das kuriose ist, unter Windows XP konnte ich diesen Fehler nicht Reproduzieren, nur unter Windows 2003 tritt er auf.
Ich kann auch keine Regelmässigkeit dabei erkennen *grübel*
Delphi-Quellcode:
ftp:= tidftp.Create;
try
list:=tstringlist.create;
name := ExtractFileName(form3.listview1.Items[listviewind].Caption);
Ftp.Host:='
ftp.uploaded.to';
Ftp.Username:=Form4.Edit13.text;
Ftp.Password:=Form4.Edit12.text;
Ftp.Passive:=true;
Ftp.Connect();
Ftp.ChangeDir('
/');
Ftp.Put(form3.listview1.Items[listviewind].Caption,
name);
Ftp.list(list);
arr1 := explode(
name+'
',list.text);
arr2 := explode(#13#10,arr1[1]);
while(arr2[0] = '
')
do
begin
list.Clear;
Ftp.list(list);
arr1 := explode(
name+'
',list.text);
arr2 := explode(#13#10,arr1[1]);
end;
tmp1:='
http://ul.to/'+arr2[0];
Ftp.Disconnect;
list.Free;
except
on E :
Exception do
begin
ShowMessage('
FTPException class name = '+E.ClassName);
ShowMessage('
FTPException message = '+E.
Message);
end;
end;
ftp.Free;