Habe jetzt mein OSM-Aufruf so geändert:
FUNCTION TdsTransGeoData.Load_OSM_To_File(CONST FileName: STRING;
CONST Angle_Left, Angle_Bottom, Angle_Right, Angle_Top: Extended): Boolean;
VAR
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
fString: STRING;
CreateProcessString: STRING;
BEGIN
fString := 'wget --random-wait --no-check-certificate -O %s' +
' "https://
api.openstreetmap.org/
api/0.6/map?bbox=%.5f,%.5f,%.5f,%.5f"';
//FileName = R:\Test_OSM.OSM'
CreateProcessString := FORMAT(fString, [FileName, Angle_Left, Angle_Bottom,
Angle_Right, Angle_Top]);
ZeroMemory(@StartupInfo, SizeOf(StartupInfo));
StartupInfo.cb := SizeOf(StartupInfo);
IF CreateProcess(NIL, PChar(CreateProcessString), NIL, NIL,NOT False, 0, NIL,
PChar(ExtractFilePath(FileName)), StartupInfo, ProcessInfo) THEN
BEGIN
// Warte auf das Ende des Prozesses
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
// -----
Result := true;
END
ELSE
BEGIN
// Fehler beim Starten von wget
Result := False;
END;
END;
Der Rückgabewert ist TRUE, aber die Dateigröße von "Test_OSM.OSM" ist 0!
Habe jetzt WGet über die Konsole so aufgerufen:
wget --no-check-certificate -O R:\Test_OSM.OSM "https://
api.openstreetmap.org/
api/0.6/map?bbox=11.54,48.14,11.543,48.145"
Die Datei "Test_OSM.OSM" wird erzeugt mit 28,4MB.
Wo liegt bei mir der jetzt der Fehler?
Ich glaube, ich bin zu alt dafür.