Fehlerbehandlung SOAP Webservice THTTPRio

[Sherlock]

Grundsätzlich kann man mit einem TIdTCPClient testweise eine Verbindung zum Serverport herstellen. Sowas in der Art:

Delphi-Quellcode:

function IsServerAvailable(const aHostName:string; const aPort:Cardinal):Boolean;
const 
  Timeout_ms = 1000;
var
  tcp: TIdTCPClient;
begin
  Result := False;
  tcp := TIdTCPClient.Create(nil);
  try
    tcp.Host := AHostName;
    tcp.Port := APort;
    tcp.ReadTimeout := Timeout_ms;
    tcp.ConnectTimeout := Timeout_ms;
    try
      tcp.Connect;
      tcp.Disconnect;
      Result := True; // Success
    except
      on E: Exception do
      begin
        Result := False;  // Not reachable
      end;
    end;
  finally
    tcp.Free;
  end;

Sherlock

[QuickAndDirty]

Ja natürlich. Sowas machen ich auch für alle möglichen Dinge...sogar für Datenbanken...Weil ja scheinbar keine Komponente in Klartext melden kann, dass die Gegenstelle nicht erreichbar ist...
Also auch für Soap...irgend eine Form von "Ping Test" gegen Server und Port...
Sorry, aber irgendwie regt mich im Moment jeder Pfurz auf...

[christophspaeth]

Hallo QuickAndDirty,

kann ich nachvollziehen, geht mir genauso.
Das schlimme: Das war ja mal besser. Bei früheren Delphiversionen (zur Absicherung ausprobiert mit XE2) ist dann eine ESOAPHTTPException geflogen, die meiner bescheidenen Meinung nach "etwas" aussagekräftiger waren:

Code:

ESOAPHTTPException

The server name or address could not be resolved - URL:http://10.0.0.300/MyModule/SOAP/IMySoapintf - SOAPAction:urn:Unit1-IMySoapintf#GetData

Ich bin jetzt einfach hergegangen, und hab die vorhandenen on E: ESOAPHTTPException do-Blöcke dupliziert und mit EDomParseError nochmal eingefügt. Nicht schön, hätte es auch lieber sauber, aber für meinen Anwendungsfall (hoffentlich) ausreichend.

[QuickAndDirty]

@christophspaeth:
Das haben die ausgebaut? Warum ? Das klingt doch verständlich.