Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   XE7 Ersatz für WinInet aus Delphi7 (https://www.delphipraxis.net/188570-xe7-ersatz-fuer-wininet-aus-delphi7.html)

MarkSE 16. Mär 2016 20:56

XE7 Ersatz für WinInet aus Delphi7
 
Hallo Gemeinde,
ich hatte in Delphi7 ein FTP-Download-Files-Routine mit WinInet geschrieben. Das funktionierte auch gut.
Delphi-Quellcode:
uses
 WinInet,IdTCPClient, IdMessageClient,IdComponent,IdMessage,
     usw.;
Und die Funktion zum Download:

Delphi-Quellcode:

function FtpDownloadFile(FtpServer, FTPUser, ftpPW, FtpPort): Boolean;
const
  READ_BUFFERSIZE = 4096;  
var
  hFTP, hFile,: HINTERNET;
In XE7 gibt es leider unter anderem WinInet und auch HINTERNET nicht mehr.
Kann jemand bitte mir verraten, welches Tool/Komponente ich statt dessen
nehmen darf, damit ich z.B. folgendes benutzen kann?

Delphi-Quellcode:
  hFTP := InternetConnect(hNet,PChar(FtpServer),Port, PChar(ftpUser),
                          PChar(ftpPW),INTERNET_SERVICE_FTP,
                          0, // oder INTERNET_FLAG_PASSIVE
                          0);
  if hFTP = nil then
             // fehler internet behandeln

Sir Rufo 16. Mär 2016 22:03

AW: XE7 Ersatz für WinInet aus Delphi7
 
Die Doku sagt da etwas anderes
http://docwiki.embarcadero.com/RADSt...keitsbereichen

Luckie 17. Mär 2016 03:00

AW: XE7 Ersatz für WinInet aus Delphi7
 
Eventuell bei den Uses den Namespace vergessen anzugeben?

MarkSE 17. Mär 2016 09:35

AW: XE7 Ersatz für WinInet aus Delphi7
 
Hallo Sir Rufo
in der Liste (Dein Link) finde ich WinInet aber XE7 kennt das nicht.
Kann/muss ich das irgendwo runter laden.
Habe jetzt zu Namespace einiges gelesen, ist das "WinApi.WinInet" gemeint?
Das einzige was XE7 Tool-Palette mit "Win" anbietet ist TIWURLWindows

Und da stehe ich wieder, wie Ochs am Berg :-(

nahpets 17. Mär 2016 09:46

AW: XE7 Ersatz für WinInet aus Delphi7
 
Steht bei Dir in der Uses irgendwo WinInet? Wenn nein, füge es dort hinzu, wenn ja ändere es in WinApi.WinInet und schau, was der Compiler dazu sagt.

MarkSE 17. Mär 2016 10:04

AW: XE7 Ersatz für WinInet aus Delphi7
 
Zitat:

Zitat von nahpets (Beitrag 1333110)
Steht bei Dir in der Uses irgendwo WinInet? Wenn nein, füge es dort hinzu, wenn ja ändere es in WinApi.WinInet und schau, was der Compiler dazu sagt.

Mercy vielmals, noch ein Problem weniger
Wenn so weiter ged, dann finde ich auch eine Lösung mit SohnUndBisMitteNachtPC 8-)


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz