Maschinesteuern mit TNetHttpClient

[TurboMagic]

Hallo,

naja, es kann wirklich nicht schaden das mal mit Wireshark mitzuschneiden.

Grüße
TurboMagic

[WunniKunz]

Ich hab mal den Datenverkehr zwischen Client und Server aufgezeichnet. Bei der Authentifizierung mittels Browser wird die Zeile generiert:
"Authorization: Basic R0xUOjI2MjE3NQ==", die dann bei jedem Get oder Post-Aufruf mitgesendet wird. Ist dies der Cookie? Wie extrahiert man den in Delphi und sendet ihn jeweils mit?
Hat jemand da Erfahrung und eventuell einen Beispielcode?

Grüße

[Olli73]

https://swagger.io/docs/specificatio...U1dzByZA%3D%3D

Falls dein user / Passwort geheim bleiben soll, solltest du das base64 oben oder dein Passwort ändern.

[mytbo]

Zitat von WunniKunz:

Hat jemand da Erfahrung und eventuell einen Beispielcode?

Du kannst Curl nehmen. Wie ist in diesem Post beschrieben.

Delphi-Quellcode:

uses
  mormot.core.base,
  mormot.core.data,
  mormot.core.text,
  mormot.core.unicode,
  mormot.lib.curl;

const
  REQUEST_URL: RawUtf8 = 'http://192.168.178.25:8080/setKeys';
var
  hnd: TCurl;
  res: TCurlResult;
  statusCode: Integer;
  requestData: RawUtf8;
  responseData: RawByteString;
begin
  if not CurlIsAvailable then Exit; //=>

  hnd := curl.easy_init;
  if hnd <> Nil then
  try
    curl.easy_setopt(hnd, coWriteFunction, @CurlWriteRawByteString);
    curl.easy_setopt(hnd, coWriteData, @responseData);

    // Basic authentication
    curl.easy_setopt(hnd, coUserName, RawUtf8('USERNAME'));
    curl.easy_setopt(hnd  coPassword, RawUtf8('PASSWORD'));

    // Post request data
    requestData := 'Stromf_Ew.Anforderung_GLT.bAktiv=1';
    curl.easy_setopt(hnd, coPostFields, Pointer(requestData));
    curl.easy_setopt(hnd, coPostFieldSize, Length(requestData));

    curl.easy_setopt(hnd, coURL, Pointer(REQUEST_URL));
    curl.easy_setopt(hnd, coCustomRequest, RawUtf8('POST'));
    res := curl.easy_perform(hnd);
    if res = crOk then
    begin
      curl.easy_getinfo(hnd, ciResponseCode, statusCode);
      case statusCode of
        200:
          ShowMessage(Utf8ToString(RawUtf8(responseData))); // Stromf_Ew.Anforderung_GLT.bAktiv ok
        else
          ShowMessage('Should not happen.');
      end;
    end
    else
      ShowMessage(Format('Error: %d (%s)', [Ord(res), curl.easy_strerror(res)]));
  finally
    curl.easy_cleanup(hnd);
  end;
end;

Bis bald...
Thomas

[Rolf Frei]

Zitat von WunniKunz:

Ich hab mal den Datenverkehr zwischen Client und Server aufgezeichnet. Bei der Authentifizierung mittels Browser wird die Zeile generiert:
"Authorization: Basic R0xUOjI2MjE3NQ==", die dann bei jedem Get oder Post-Aufruf mitgesendet wird. Ist dies der Cookie? Wie extrahiert man den in Delphi und sendet ihn jeweils mit?
Hat jemand da Erfahrung und eventuell einen Beispielcode?

Grüße

Nein das ist ein HTTP-Header, also kein Cookie. Du musst einfach den Header mit dem richtigen Base64 codierten User : Password mitsenden:

Delphi-Quellcode:

 
var
  http: THTTPClient;
begin
...
   // Diese Zeile vor dem Post einfügen.
   http.CustomHeaders['Authorization'] := 'Basic ' + TNetEncoding.Base64.Encode('GLT:262175'); 

   // Danach deinen bisherigen Postbefehl aufrufen
   http.Post ...
...
end;