TMS Webcore app mit DB auf gehosteten Systemen

[mytbo]

Zitat von noisy_master:

Wenn du gaanz viel Muße hast hast du ja vielleicht sogar ein funktionierendes Snippet für mich

Delphi-Quellcode:

procedure ...RequestValue(pmResultProc: TProcBoolean);

  //-------- local function -------------------------------------------

  function DoHandleResponse(_pmEvent: TEventListenerEvent): Boolean;
  var
    rspJson: String;
    rspStatus: Integer;
    rspObject: TJSObject;
  begin
    asm
      rspJson = _pmEvent.target.responseText;
      rspStatus = _pmEvent.target.status;
    end;

    if rspStatus = 200 then
    begin
      rspObject := TJSJson.parseObject(rspJson);
      ...
    end;

    pmResultProc(...);
    Result := True;
  end;

  //-------- end local function ---------------------------------------

var
  req: TJSXmlHttpRequest;
  requestUrl: String;
begin
  asm
    var url = new URL(this.FServiceUrl);
    url.searchParams.append('accessToken', this.FAccessToken);
    requestUrl = url.toString();
  end;

  req := TJSXmlHttpRequest.new;
  req.addEventListener('loadend', @DoHandleResponse);
  req.open('GET', requestUrl);
  req.setRequestHeader('X-Requested-With', 'XMLHttpRequest');
  req.send;
end;

Der Request in der Funktion läuft asynchron ab. Wenn du auf den Aufruf warten musst, verwende eine Promise.

Delphi-Quellcode:

function ...LoadValue: TJSPromise;
begin
  Result := TJSPromise.new(
    procedure(pmSuccess, pmFailed: TJSPromiseResolver)
    begin
      RequestValue(
        procedure(pmValue: Boolean)
        begin
          pmSuccess(pmValue);
        end);
    end);
end;

Benutzen kannst du es so:

Delphi-Quellcode:

procedure ...btnLoadValueClick(Sender: TObject);

  //-------- local function -------------------------------------------

  function HandleLoadValue(pmValue: JSValue): JSValue;
  begin
    Result := pmValue;
    btnLoadValue.Enabled := True;
    ShowMessage('Value available: ' + TJSString(pmValue).ToString);
  end;

  //-------- end local function ---------------------------------------  

begin
  btnLoadValue.Enabled := False;
  LoadValue._then(@HandleLoadValue);
end;

Bis bald...
Thomas

[noisy_master]

Hallo Thomas,

Danke für dein Beispiel! Wenn ich das richtig sehe hat das aber nichts mehr mit TMS geschweige denn mit TMS Web Core zu tun, oder habe ich da jetzt was falsch verstanden?

Gruß

[mytbo]

Zitat von noisy_master:

Danke für dein Beispiel! Wenn ich das richtig sehe hat das aber nichts mehr mit TMS geschweige denn mit TMS Web Core zu tun, oder habe ich da jetzt was falsch verstanden?

Doch, das ist TMS WebCore. Habe im Eingangspost überlesen, dass du die Anbindung mit dem XData Server erledigen willst. Bei Frameworks die TMS WebCore nicht unterstützt, musst du die Anbindung selbst schreiben. Mein Beispiel zeigt, wie das allgemein bewerkstelligt wird. Im konkreten Fall folgst du besser dem Rat von TigerLilly.

Bis bald...
Thomas

[noisy_master]

So, jetzt habe ich es: in der WebCLientConnection musste noch der DataNode auf "records" gesetzt werden!

Danke euch allen...jetzt kann es weitergehen

[TigerLilly]

:- ) Stand aber im Beispiel drin. Gut, dass es jetzt funkt. Viel Spaß!

[noisy_master]

So, und jetzt habe ich es auch endlich auf dem gehosteten System laufen:

für die, die vielleicht ein ähnliches Problem haben: ich musste in der api.php nocht den basePath auf '/api.php' stzen..... Das soll einer ahnen

Aber Danke nochmal an alle für diesen coolen Tip... jetzt werde ich das nochmal mit Berechtigungen testen ... mal schauen, wie lange ich brauche, um das zum Laufen zu bekommen

[TigerLilly]

Zumindest mit ApiKey war das ganz unkompliziert:

Code:

  $config = new Config([
         'driver' => 'mysql',
         'address' => 'xxx',
        // 'port' => '3306',
        'username' => 'xxx',
        'password' => 'xxx',
        'database' => 'xxx',
--->    'middlewares'=>'apiKeyAuth',
--->    'apiKeyAuth.keys'=>'abc,def',  // da sind mehrere möglich
        'debug' => false
    ]);

Und in der Connection setzt du im Code oder zur Designtime

Code:

Connection.Headers.Add('X-API-Key=abc');