Kommunikation mit Windows WCF Dienst

[jus]

Hallo,

ich soll einen Request bei einem fremden Windows WCF Dienst machen und habe folgenden Javas Beispielcode, das von einer HTML Datei aufgerufen wird:

Code:

    $.ajax({
        url: url,
        type: "POST",
        contentType: "application/json;encoding=utf-8",
        crossDomain: true,
        data: reqdata,
        success: success,
        error: error
    });

Es werden JSON Daten zum WCF Dienst hingeschickt und es werden JSON Daten zurückgeliefert.

Muß ehrlich zugeben, dass ich bisher keine Erfahrung mit Windows WCF Dienst gehabt habe. Ich habe folgenden Code versucht, leider funktionert es nicht ganz.
HttpPostURL('http://localhost:1201/testsample/POS/json/sign', Params, st); Wie kann man sowas in Delphi 2007 nachbauen?

Lg,
jus

[jus]

Hallo,

wollt mich noch kurz melden, für die Leute die wie ich noch nie mit Microsoft WCF gearbeitet haben, habe es nun hingekriegt. Ist einfacher als ich es gedacht habe. Anscheinend habe ich das Tutorial "Introduction to WCF Programming in Delphi" bei Embarcadero nicht gründlich genug durchgelesen. Ich dachte nämlich, dass es eine Anleitung rein für Delphi .NET war. Dabei wurde im unteren Teil des Artikels Delphi 2007 explizit erwähnt. Die ganze Arbeit macht einfach der "WSDL Importer" siehe obiger Embaracadero Artikel. Hat zumindest bei mir auf Anhieb funktioniert. Somit braucht man sich nicht mehr um die Kommunikation kümmern.

Interessant wäre es trotzdem, wie man selber über ein http POST die JSON-Daten wie AJAX (siehe erster Beitrag) zum Server raufschickt. Vielleicht weiß da jemand Rat.

Lg,
jus

[mjustin]

Zitat von jus:

Interessant wäre es trotzdem, wie man selber über ein http POST die JSON-Daten wie AJAX (siehe erster Beitrag) zum Server raufschickt. Vielleicht weiß da jemand Rat.

Zum Beispiel mit der Indy TIdHTTP Komponente und diesem Code.

https://mikejustin.wordpress.com/201...-6-https-post/

[jus]

hallo Mike,

vielen Dank für die Antwort. Ich habs gleich ausprobiert, funktioniert leider nicht. Es kommt die Fehlermeldung "HTTP/1.1 400 Bad Request".

lg,
jus

[vagtler]

Was sagt Fiddler dazu?

[jus]

ok, nun geht es. War wieder Mal mein Fehler. Hatte im JSON einen Abschreibfehler gehabt.
@mjustin Danke nochmals für den Code!

Habe den folgenden Code geringfügig an Delphi 2007 angepaßt, damit es compiliert.

Delphi-Quellcode:

program JSONPostExample;

{$APPTYPE CONSOLE}

uses
  IdHTTP, IdGlobal, SysUtils, Classes;

var
  HTTP: TIdHTTP;
  RequestBody: TStream;
  ResponseBody: string;
  s: String;
begin
  HTTP := TIdHTTP.Create;
  try
    try
      s := '{"ftID":"TESTID","cbD":"1"}';
      writeln(s);
      RequestBody := TStringStream.Create(s);
      try
        HTTP.Request.Accept := 'application/json';
        HTTP.Request.ContentType := 'application/json';  //<------ mußte bei mir zwingend drinstehen, damit es funktioniert!!!
        HTTP.Request.ContentEncoding:= 'utf-8';

        ResponseBody := HTTP.Post('http://localhost:1201/testsample/POS/json/sign', RequestBody);

        WriteLn(ResponseBody);
        WriteLn(HTTP.ResponseText);
      finally
        RequestBody.Free;
      end;
    except
      on E: EIdHTTPProtocolException do
      begin
        WriteLn(E.Message);
        WriteLn(E.ErrorMessage);
      end;
      on E: Exception do
      begin
        WriteLn(E.Message);
      end;
    end;
  finally
    HTTP.Free;
  end;
  ReadLn;
  ReportMemoryLeaksOnShutdown := True;
end.