Kennt sich jemand aus mit HttpWebRequest ?

[notebookuser]

Hallo ich habe Beispielcode in VB. Das muss ich jetzt umsetzen in Delphi 7 :(

Da ich noch nichts im Bereich Delphi/HTTP gemacht habe, brauche ich hier ein wenig Hilfe, vielleicht genügt auch ein kleiner Denkanstoß :)

VB-Quellcode-Beispiel:
-------------------------------------------------

Delphi-Quellcode:

Public Function CheckDevice() As String
Try
Dim request As HttpWebRequest = _GetHttpWebRequest("http://" + _configuration.ServerIpAddress.ToString, "GET", True, True,
_configuration.Username, _configuration.Password)
Dim response As HttpWebResponse
request.Timeout = 5000
' request the start page from the sortex web server
response = DirectCast(request.GetResponse(), HttpWebResponse)
Return String.Empty
Catch ex As Exception
Return ex.Message
End Try
End Function

-------------------------------------------------

Wie kann man sowas umsetzen ? Es geht darum Daten mit einer Maschine auszutauschen, die einen WebServer integriert hat. Das Beispiel ist nur eines von vielen Funktionen die ich umsetzen soll.

Vielen Dank im voraus :hi:

[alphanumeric]

das übersetzen ist ja nur ne syntax sache, ggf. musst du ein zwei funktionen selber schreiben die es so in delphi nicht gibt.

Anfangen würd ich an deiner Stelle damit, dass ich mir Gedanken mach was ich will, was soll dein Programm können? das ganze dann mal in Metasprache umsetzen und anschließend eben deinen Code schreiben. Ich persönlich find das einfacher als sturr code von sprache zu sprache zu übersetzen.

[Andreas L.]

Du kannst das mit IdHTTP von den Indys machen (sollten bei D7 dabei sein, ansonsten http://www.indyproject.org/).

Delphi-Quellcode:

uses
  ..., IdHTTP;

...

var
  http: TIdHTTP;
  s: String;
begin
  //IdHTTP Object erstellen
  http := TIdHTTP.Create(nil);
  try
    //Mit IdHTTP arbeiten, der Quelltext der Seite wird in s abgelegt
    s := http.Get('http://www.deineseite.de');
  finally
    //Speicher freigeben
    http.Free;
  end;
end;

[vit4l]

Ich denke TIdHTTPServer wäre für deine Umsetzung ein Tipp. Im Ereignis OnCommandGet könntest könntest du jeden Post und auch get auswerten der sich auf diesen Webserver bezieht.

[himitsu]

Wenn man Andreas Bepspiel noch etwas umstellt, dann kommt es deinem Code doch recht nah:

Delphi-Quellcode:

var
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(nil);
  try
    http.TimeOut := 5000;
    http.Get('http://' + Configuration.ServerIpAddress);
    Result := '';
  except
    on e: Exception do
      Result := e.Message;
  end;
  http.Free;
end;

Und ja, ich hab hier absichtlich Try-Finally ausgelassen, da es indirekt im Try-Except drinsteckt. :angel: