Hallo, habe folgendes Problem:
wenn ich auf meinen button drücke soll sich der OpenPictureDialog öffnen, ich wähle eine Datei aus und
die soll dann hochgeladen werden. Das öffnen des Dialogs klappt und das auswählen auch, nur wenn ich dann auf öffnen klicke kommt nach einer zeit "Socket Error # 10060 Connection timed out" und wenn ich es ein zweites mal versuche kommt "Access violation at adress 0000007C. Read of adress 0000007C"
hier mein Quelltext:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
|
procedure TForm1.Bilderhochladen1Click(Sender: TObject);
var filename : String;
S: String;
begin
inifile := TIniFile.Create(IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName)) + 'ftp.ini');
clientverzeichnis := inifile.ReadString('ftp', 'clientverzeichnis', '');
serververzeichnis := inifile.ReadString('ftp', 'serververzeichnis', '');
OpenPictureDialog1.Execute;
filename := OpenPictureDialog1.FileName;
S:= filename;
host:=idftp1.Host;
code := ping(host,hopcount,rtt,ipad);
if code = 0 then begin end;
begin
InternetAutodial(internet_autodial_force_unattended, handle);
end;
begin
inifile.Free;
IdAntifreeze1.Process ;
ProgressBar1.Position := 0;
idftp1.Connect(True,-1); idftp1.ChangeDir(serververzeichnis); idftp1.put(clientverzeichnis+S, S, false);
idftp1.Disconnect(); MessageDlg('Datei wurde hochgeladen',mtInformation,[mbOK],0);
end;
end; |
könnt ihr mir sagen warum das nicht geht?
