AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Rad Server - IIS Installtion will einfach nicht laufen

Rad Server - IIS Installtion will einfach nicht laufen

Ein Thema von fisipjm · begonnen am 13. Sep 2021 · letzter Beitrag vom 18. Okt 2021
Antwort Antwort
Seite 2 von 3     12 3   
fisipjm

Registriert seit: 28. Okt 2013
51 Beiträge
 
#11

AW: Rad Server - IIS Installtion will einfach nicht laufen

  Alt 12. Okt 2021, 11:23
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
  Mit Zitat antworten Zitat
Benutzerbild von MEissing
MEissing

Registriert seit: 19. Jan 2005
Ort: Egelsbach
1.157 Beiträge
 
Delphi 11 Alexandria
 
#12

AW: Rad Server - IIS Installtion will einfach nicht laufen

  Alt 12. Okt 2021, 11:44
Und wo klemmt's?

Die Fehlerbeschreibung, die Schritte zum Nachvollziehen und/oder die Fehlermeldungen müssen im Posting unsichtbar sein....
Matthias Eißing
cu://Matthias.Eißing.de [Embarcadero]
Kein Support per PN
  Mit Zitat antworten Zitat
fisipjm

Registriert seit: 28. Okt 2013
51 Beiträge
 
#13

AW: Rad Server - IIS Installtion will einfach nicht laufen

  Alt 13. Okt 2021, 10:42
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.
  Mit Zitat antworten Zitat
fisipjm

Registriert seit: 28. Okt 2013
51 Beiträge
 
#14

AW: Rad Server - IIS Installtion will einfach nicht laufen

  Alt 13. Okt 2021, 14:57
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;
  Mit Zitat antworten Zitat
fisipjm

Registriert seit: 28. Okt 2013
51 Beiträge
 
#15

AW: Rad Server - IIS Installtion will einfach nicht laufen

  Alt 13. Okt 2021, 16:39
Okay Neuer Anlauf, mit dem Code Klappts nun. Noch 2 Bitten.
1.) kann die Funktion so bleiben? (Create des Array ohne Freigabe und zuweisung auf Result + Aufruf des Body.SetValue sollte das doch eigentlich frei geben, oder?)
2.) Das Ursprüngliche Verhalten ist doch ein Bug oder mach ich was falsch? Hab auch gerade nochmal mit Delphi 11 versucht, gleiches Problem.

Gut nun aber der Code mit der Bitte mal drüber zu fliegen ob man dass so lassen kann. Danke!

Delphi-Quellcode:
function DatasetToJSONArray(aFDQuery: TFDQuery): TJSONArray;
var
  lArray: TJSONArray;
begin
  if assigned(aFDQuery) and not aFDQuery.IsEmpty then
  begin
    lArray := TJSONArray.Create;
    try
      aFDQuery.first;
      while not aFDQuery.eof do
      begin
        var
          o: TJSONObject := TJSONObject.Create;
        for var I := 0 to aFDQuery.Fields.Count - 1 do
        begin
          if not varisnull(aFDQuery.Fields.Fields[I].value) then
            o.AddPair(aFDQuery.Fields.Fields[I].FieldName, aFDQuery.Fields.Fields[I].value)
          else
            o.AddPair(aFDQuery.Fields.Fields[I].FieldName, '')
        end;
        lArray.AddElement(o);
        aFDQuery.Next;
      end;
    finally
      Result := lArray;
    end;
  end;
end;

procedure TDataResource1.GetTableItems(const AContext: TEndpointContext; const ARequest: TEndpointRequest;
  const AResponse: TEndpointResponse);
...
AResponse.Body.SetValue(DatasetToJSONArray(lquery),true);
...
end;
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
4.797 Beiträge
 
Delphi 10.1 Berlin Professional
 
#16

AW: Rad Server - IIS Installtion will einfach nicht laufen

  Alt 14. Okt 2021, 06:35
Moin...
Zitat:
Bitte mal drüber zu fliegen ob man dass so lassen kann
Alles Kosmetik...

1. Groß/Kleinschreibung (assigned, value)
- Du tippst ohne Codevervollständigung? Weil diese immer Assigned, Value anbieten würde.
2. o: TJSONObject := TJSONObject.Create; War die Batterie alle, daß du nur ein Zeichen für die Variable tippen konntest? Sprechende Namen erleichtern später hinaus die Arbeit.

  Mit Zitat antworten Zitat
fisipjm

Registriert seit: 28. Okt 2013
51 Beiträge
 
#17

AW: Rad Server - IIS Installtion will einfach nicht laufen

  Alt 14. Okt 2021, 08:32
Moin...
Zitat:
Bitte mal drüber zu fliegen ob man dass so lassen kann
Alles Kosmetik...

1. Groß/Kleinschreibung (assigned, value)
- Du tippst ohne Codevervollständigung? Weil diese immer Assigned, Value anbieten würde.
2. o: TJSONObject := TJSONObject.Create; War die Batterie alle, daß du nur ein Zeichen für die Variable tippen konntest? Sprechende Namen erleichtern später hinaus die Arbeit.

Moin , von Clean Code mal abgesehen. Ich tippe natürlich nicht ohne Codevervollständigung. Dass Assigend hat es allerdings erst hier im Forum rein geschafft, weil ich mir beim überfliegen vor dem Abschicken noch gedacht hab, dass das ganz praktisch wäre um Zugriffsverletzungen zu vermeiden

Normal bin ich auch ein Freund von ausführlicheren deklarationen aber bei einem TJSONObject das inline deklariert und nur in dem Miniaturblock verwendet wird hab ich mir erlaubt den Part so zu lassen (Ein Teil davon ist von einem anderen Thread gemops *Hüstel*), für STRG + Shift + j muss ich schließlich 3 Tasten auf einemal drücken
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
4.797 Beiträge
 
Delphi 10.1 Berlin Professional
 
#18

AW: Rad Server - IIS Installtion will einfach nicht laufen

  Alt 14. Okt 2021, 08:55
  Mit Zitat antworten Zitat
stephancramer

Registriert seit: 26. Apr 2016
14 Beiträge
 
Delphi 11 Alexandria
 
#19

AW: Rad Server - IIS Installtion will einfach nicht laufen

  Alt 15. Okt 2021, 15:13
Hallo.

Ich habe da auch mal eine Frage zum RAD-Server. Bin heute von D 10.4.2 auf D 11 umgestiegen. Problem ist jetzt das sich mein RAD-Server Projekt nicht debuggen lasst. Es wird jetzt eine IB-DB in
"C:\ProgramData\Embarcadero\Interbase\gds_db\EMSMS ERVERVER133.IB" gesucht, die ist natürlich nicht vorhanden.
Bei 10.4.2 lag die Datenbank in C:\Users\Public\Documents\Embarcadero\EMS\EMSSERVE R.IB"

Hat sich da was geändert?

Hat sich eigentlich der RAD-Server geändert? Bin eigentlich froh das er so gut auf einen Server 2019 läuft.

Gruß Stephan
Stephan Cramer
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe
Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.649 Beiträge
 
Delphi 10.4 Sydney
 
#20

AW: Rad Server - IIS Installtion will einfach nicht laufen

  Alt 15. Okt 2021, 16:34
Hat sich eigentlich der RAD-Server geändert?
Der RAD-Server ändert sich mit jeder Delphi Version. Da er ja Delphi-Packages (bpl) verwendet, muss die Version mit denen die Packages compiliert werden zu der RAD Server Version passen. Daher ist die Verwendung eines LIBSUFFIX bei den Packages sehr zu empfehlen. Am besten einen Automatismus verwenden (z.B. $(Auto) oder Project Magician)
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 18:24 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf