Hallo da draußen.
Ich habe die in
diesem Beitrag beschriebene Methode unter TurboDelphi2006 nachgebaut, um die OpenWeather-Schnittstelle von Wetter.com für eine Art Schulprojekt zu nutzen. Es gibt allerdings eine
Exception in folgendem Code:
Delphi-Quellcode:
function TFWeather.GetCityCode:
String;
var
Req: IXMLHTTPRequest;
begin
Req := ComsXMLHTTP.Create;
// an dieser Stelle die Exception
with Req
do
begin
Open('
GET', GetSearchURL, False,
{Username} EmptyParam,
{Passwort} EmptyParam);
SetRequestHeader('
aiFrogOpenWeatherGadget', '
CityCodeRequest');
Send(EmptyParam);
Result := ...
end;
end;
Dabei wird dann eine Zeile in der MSXML2_TLB.pas angezeigt, die Delphi für MSXMLv4 generiert hat. Die entsprechende Stelle ist:
Delphi-Quellcode:
class function ComsXMLHTTP.Create: IXMLHTTPRequest;
begin
Result := CreateComObject(CLASS_msXMLHTTP) as IXMLHTTPRequest;
end;
Die
Exception: Im Projekt ist eine
Exception der Klasse EOleSysError mit der Meldung 'CoInitialize wurde nicht aufgerufen, Class-ID: {.........}' aufgetreten.
Was mache ich (und oder Delphi) falsch?