My problem:
Under Delphi 7 my application runs correct but under XE I have a great
problem with icsv7w from Okt. 2010.
I install the version for XE correct.
In my app. I download some 6 picture from the internet in the directory
c:\temp\thumnail
After that by clicking in the grid I saw the 6 pictures.
Now the problem is, that Delphi XE hang in the line
Ftpclient1.restartget (procedure TForm1.ftpdownloadfileeinzeln)
With Delphi 7 the debugger goes on an have no problems.
Here is the snip of my code.
procedure TForm1.dxBarButton48Click(Sender: TObject);
begin
ftpconnect ;
emptypicture1 ;
vorschau := 1 ;
suche11 := 1 ; //Bildname in datenbank ist auch als Bild auf fileebene
vorhanden
verzeichnisvorhanden ;
ProgressBar3.Max := 6 ;
ProgressBar3.Position := 0 ;
// first picture
dateinamekurz:= String(datamodule2.MSUebungD1name.Value) ;
if dateinamekurz <> '' then begin
vorhanden := IsFile('C:\temp\'+thumbpfad+'\'+dateinamekurz) ;
if vorhanden = false then begin
ftpdownloadfileeinzeln ;
end ;
if suche11 = 1 then begin// also Bildname vorhanden
image1.Picture.LoadFromFile('C:\temp\'+thumbpfad+'\'+dateinamekurz);
image7.Picture.LoadFromFile('C:\temp\'+thumbpfad+'\'+dateinamekurz);
image9.Picture.LoadFromFile('C:\temp\'+thumbpfad+'\'+dateinamekurz);
end else begin
image1.Picture.Icon.Empty ;
image7.Picture.Icon.Empty ;
image9.Picture.Icon.Empty ;
end ;
end else begin
image1.Picture.Icon.Empty ;
image7.Picture.Icon.Empty ;
image9.Picture.Icon.Empty ;
end ;
suche11 := 1 ;
// second picture
dateinamekurz:= String(datamodule2.MSUebungD2name.Value) ;
if dateinamekurz <> '' then begin
vorhanden := IsFile('C:\temp\'+thumbpfad+'\'+dateinamekurz) ;
if vorhanden = false then begin
ftpdownloadfileeinzeln ;
end ;
..
..
End ;
procedure TForm1.ftpdownloadfileeinzeln ;
begin
if suche11 = 1 then begin // also Bildname vorhanden
FtpClient1.HostFileName := dateinamekurz ; //FtpFileNameEdit.Text;
FtpClient1.LocalFileName := 'C:\temp\'+thumbpfad+'\'+dateinamekurz;
//LocalFilePathEdit.Text;
FtpClient1.RestartGet ; HERE STOPS AND NOT GO ON!!
ProgressBar3.Position := ProgressBar3.Position + 1 ;
end ;
end ;
I hope you can help me, because I have no idea. Thanks a lot.
Best regards
Ausgehende eMail ist virenfrei.
Von AVG überprüft - www.avg.de
Version: 9.0.872 / Virendatenbank: 271.1.1/3377 - Ausgabedatum: 01/13/11
08:34:00
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
