Rad Server - IIS Installtion will einfach nicht laufen

[fisipjm]

Zitat von MEissing:

Also:
- Der Key ist korrekt / ein echter RAD Server Key

Fragen
- Welches OS / welcher IIS

Windows Server 2019 Std. / IIS 10

Zitat von MEissing:

- Wurde der RAD Server per Installer (aus GetIt) installiert?

Ja

Zitat von MEissing:

- Wurde das selbstgeschriebene Paket (BPL) in der EMSSERVER.INI eingetragen? Danach Neustart vom IIS?
C:\Benutzer\Öffentlich\Öffentliche Dokumente\Embarcadero\EMS

Code:

[Server.Packages]
;# This section is for extension packages.
;# Extension packages are used to register custom resource endpoints
;c:\mypackages\basicextensions.bpl=mypackage description

Ja, ich war sogar so frei und habe im Bereich Server.Logging einen Pfad angegeben. In dem Log sehe ich auch das versucht wird die BPL zu laden. Aber das wars, mehr kommt nicht. Kein Fehler im Log, Kein error, nothing

[MEissing]

Dann mal mit dem Support zusammenarbeiten.

[fisipjm]

Darf man zwischendurch mal seinem Frust ein bissel Luft machen? Der Support ist echt Ätzend und ich bin normal kein ungeduldiger Mensch.

Wir hatten bisher noch nie den Support bemühen müssen, deshalb auch noch kein Zugang zu dem Support-Portal. Wir haben es nach geschlagenen 2 Tagen noch nicht geschafft einen Zugang zu erhalten, trotz gültiger Lizenzen mit Software-Pflegevertrag. Dank Zeitverschiebung und spärlichen Infos wer was wie darf und wie es laufen muss. Da sollte man sich konzeptionell dringend überlegen ob das nicht irgendwie einfacher bzw. schneller geht. 2 Tage ohne auch nur unser Anliegen anbringen zu können.
Ich warte weiter und melde mich wieder falls mir geholfen werden konnte....

MFG
PJM

[fisipjm]

Hallo Herr Eissing,

mal eine doofe Frage. In dem Video https://www.youtube.com/watch?v=NculJwVfKKA zeigt der Kollege, wie man eine FDQuery ganz easy über die Batchmove Komponenten publizieren kann. Haben Sie das schon mal gemacht und dann auch tatsächliche auf dem IIS zum laufen gebracht? Ich bekomme es nicht hin. Auch nicht mit einem kompletten Demoaufbau.

beste Grüße
PJM

[MEissing]

Und wo klemmt's?

Die Fehlerbeschreibung, die Schritte zum Nachvollziehen und/oder die Fehlermeldungen müssen im Posting unsichtbar sein....

[fisipjm]

Zitat von MEissing:

Und wo klemmt's?

Die Fehlerbeschreibung, die Schritte zum Nachvollziehen und/oder die Fehlermeldungen müssen im Posting unsichtbar sein....

Sorry, bin von hellseherischen Fähigkeiten aus gegangen
Das Package lädt, es reagiert, es liefert nur keine Daten. lässt man sich jedoch mit
z.B.
TEMSEndPointEnvironment.Instance.LogMessage(fdquery.recordcount.tostring); die Anzahl der Datensätze mit loggen, dann stehen im Log die Anzahl der Datensätze der abzufragenden Tabelle. An Response vom Server kommt aber nur HTTP Code 200: content-length 0. (Mit Wireshark kontrolliert)
Im Server selbst sind die Daten da, werden aber scheinbar über die Batchmomve Komponenten nicht an den Body des Response weiter gereicht.

PS: bitte alles im IIS bzw. IIS Express testen, im EMSDevServer flutscht alles.

[fisipjm]

Mit dem Code geht's, aber dann bekomme ich noch headerinfos in meinem JSON string auf die der Client nicht ausgelegt ist.
Die Auskommentierten Zeilen waren der vorhergehende Aufruf.

Delphi-Quellcode:

procedure TDataResource1.GetItem(const AContext: TEndpointContext;
  const ARequest: TEndpointRequest; const AResponse: TEndpointResponse);
const
  cPreComponentName = 'qry';
var
  LItem: string;
  lQueryComponent: TComponent;
  lStream: TMemoryStream;
begin
  LItem := ARequest.Params.Values['item'];
  // Sample code
//  AResponse.Body.SetValue(TJSONString.Create('data ' + LItem), true);

  lQueryComponent := FindComponent(cPreComponentName + LItem);
  if assigned(lQueryComponent) then
  begin
    if lQueryComponent is TFDQuery then
    begin
      TFDQuery(lQueryComponent).Open;
//      AResponse.Body.SetValue(TJSONString.Create(TFDQuery(lQueryComponent).RecordCount.ToString),true);
      lStream := TMemoryStream.Create;
      TFDQuery(lQueryComponent).SaveToStream(lstream, sfJSON);
      AResponse.Body.SetStream(lstream, 'application/json', True);
//      FDBatchMoveDataSetReader1.DataSet := TFDQuery(lQueryComponent);
//      FDBatchMoveJSONWriter1.JsonWriter := AResponse.Body.JsonWriter;
//      FDBatchMove1.Execute;
      exit;
    end;
  end;
  AResponse.Body.SetValue (TJSONString.Create(LItem + ' is no valid table'), true);
end;