Ach den ... Und welchen von den dreien?
Der erste funktioniert laut Fragesteller nicht und der letzte benutzt die Komponentensammlung 'synapse'. Also der 2. natürlich, zumal der Code von meinem Link auch genau auf diesen scrollen sollte. Das tut er jedenfalls in meinem Browser.
Die Frage zur
API muss ich dann mal an den Telefon-Menschen weiterleiten. Im Dezember soll sowieso ein Update aufgespielt werden.
Folgender Code kommt zwar bis zur letzten Bedingung durch und liefert mit ein 'True' zurück. Das Fax bleibt aber beharrlich in der Anlage und nicht dort wo sie hinsollte - ins Nirvana:
Delphi-Quellcode:
Function DeleteItem(sURL, ItemEntry, ItemNr : String): Boolean;
Var
S : String;
hSession : hInternet;
hConnect : hInternet;
hRequest : hInternet;
Begin
Result:=False;
hSession:=InternetOpenA('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
If (Assigned(hSession)) Then
Begin
hConnect:=InternetConnectA(hSession, PChar(sURL), INTERNET_DEFAULT_HTTP_PORT,
nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
If (Assigned(hConnect)) Then
Begin
hRequest:=HttpOpenRequestA(hConnect, 'POST', PChar(sURL),
nil, nil, nil, INTERNET_SERVICE_HTTP, 0);
If (Assigned(hRequest)) Then
Begin
S:='http://' + sURL + '/vphone/vp-list-mailin.asp?mode=11&entry=' +
ItemEntry + '&nr=' + ItemNr + '&type="77"&read= ';
Result:=HttpSendRequestA(hRequest, nil, 0, Pointer(S), Length(S));
InternetCloseHandle(hRequest);
End;
InternetCloseHandle(hConnect);
End;
InternetCloseHandle(hSession);
End;
End;
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage(BoolToStr(DeleteItem('192.168.1.2', '0', '512'), True));
end;
Wo liegt mein Fehler?
Jetzt muss ich morgen vermutlich doch mal zum Siffer greifen und nachsehen, was exakt die Software an den Server in der Anlage sendet.
Gruß, Dank & Gute Nacht, Alex