ClientSocket soll viele Server schnell abfragen

[haentschman]

... der Pfad wo die Packages/Pas liegen (Ich kann nur raten. Entpackter Installordner? )

[Schokohase]

Meine Güte, nun sagt es ihm doch vernünftig.

Bei Bibliothekspfad fügst du den Pfad hinzu wo die kompilierten Bibliotheken gelandet sind.
Bei Suchpfad fügst du den/die Pfad/e hinzu wo die Source Dateien liegen.

[ensaron]

Ich musste bei mir nichts an den Pfaden hinzufügen.

Das Demo-Projekt hat in den Projekteinstellungen einen (relativen) Verweis auf das Verzeichnis mit den Quelltext-Dateien. Sofern das Demo-Projekt so ausgeführt wird, wie es in dem Download enthalten war, müsste es eigentlich funktionieren.

Wenn man die Komponenten in einem eigenen Projekt benutzt, muss man natürlich noch den Suchpfad ergänzen (global oder des jeweiligen Projektes).

Edit:
Kompilierte Bibliotheken sind in dem Download nicht enthalten.

[holger_barntrup]

Ich hab jetzt alles mögliche versucht aber scheinbar nicht den Richtigen Pfad gefunden. Ich find noch nicht mal ein Verzeichnis wo die installierten Sachen gelandet sind.....

[holger_barntrup]

Zitat von ensaron:

Ich musste bei mir nichts an den Pfaden hinzufügen.

Das Demo-Projekt hat in den Projekteinstellungen einen (relativen) Verweis auf das Verzeichnis mit den Quelltext-Dateien. Sofern das Demo-Projekt so ausgeführt wird, wie es in dem Download enthalten war, müsste es eigentlich funktionieren.

Tut es aber leider nicht.

[holger_barntrup]

Mann ist das eine Aktion.

Ich hab das jetzt noch mal deinstalliert und dann nochmal neu.
Jetzt läuft auch die Demo ohne Änderung irgendwelcher Pfade.

Danke euch bis hier erst mal für eure Geduld mit mir.

Ich schaue mir das jetzt mal in Ruhe an.

[ensaron]

Schließe mal Delphi, starte es wieder und öffne das Beispielprojekt (wirklich erst einmal nur öffnen). Wird dabei eine Fehlermeldung (siehe Anhang) angezeigt?

Edit: Ah Super

[holger_barntrup]

Heute hatte ich zeit wieder etwas weiter zu machen. Ich muß sagen ich tue mich echt schwer zumal mein Tagesgeschäft hier nicht nur aus Programmieren besteht. Zwischendurch immer wieder etwas anderes tun zu müssen ist da kontraproduktiv.
Mit dem Beispiel hab ich etwas herum probiert bekomme es aber nicht mal hin zwei Maschinen abzufragen.
Mit einer funktioniert es problemlos.
Wenn ich das alles richtig verstehe müsste ich ja für jede abzufragende Maschine eine eigenen WSocket nehmen und davon die Ereignisse in eigenen Proceduren verarbeiten um die Ergebnisse dann irgendwo hin zu schreiben.

[stahli]

Mal ganz grundsätzlich:

Du könntest Dein Programm ja 50 mal starten, um 50 Maschinen abzufragen. Da läuft also jede Abfrage in einem eigenen Prozess.

Du kannst aber auch in Deinem Programm 50 Threads laufen lassen und in jedem wieder eine eigenständige Abfrage. Ein Thread ist auch ein eigenständiger Prozess.

Dann musst Du alles, was benötigt wird in dem Thread instanziieren.

Ein Problem ist die Ein- und Ausgabe.
Die Eingabe (Verbindung zur jeweiligen Maschine) kannst Du im Thread-Konstruktor übergeben.
Das Ergebnis (z.B. Schreiben in ein Memo) muss mit dem Mainthread synchronisiert werden.

Mit parallelen Schleifen habe ich noch nichts gemacht aber die sind letztlich auch nur eine andere Darstellung von Threads.

[ensaron]

Bei Verwendung von den ICS Komponenten werden keine Threads benötigt - die laufen asynchron und behindern sich damit nicht gegenseitig.

Mal ganz grob skizziert, wie der Test der Verbindungen aussehen könnte:

Delphi-Quellcode:

TNotifyConnectionResult = procedure(const AIp: string; const AErrorCode: Integer; const AInstance: TTestConnection) of object;

TTestConnection = class
private
   FClientSocket: TWSocket;
   FNotifyEvent: TNotifyConnectionResult;
   
   procedure OnClientSessionConnected(Sender: TObject; ErrCode: Word);
public
   procedure TestConnection(const AIp: string; const ANotifyEvent: TNotifyConnectionResult);
end;

TTestForm = class
private
   FListOfIpAddresses: TStringList;
   
   procedure NotifyConnectionResult(const AIp: string; const AErrorCode: Integer; const AInstance: TTestConnection);
   procedure TestAllConnections;
end;

implementation

procedure TTestConnection.TestConnection(const AIp: string; const ANotifyEvent: TNotifyConnectionResult);
begin
   FNotifyEvent := ANotifyEvent;
   FClientSocket.Addr := AIP;
   FClientSocket.Port := cDefaultPort; //oder Port mitgeben
   FClientSocket.OnSessionConnected := OnClientSessionConnected;
   FClientSocket.Connect;
end;

procedure TTestConnection.OnClientSessionConnected(Sender: TObject; ErrCode: Word);
begin
   FNotifyEvent(FClientSocket.Addr, ErrCode, Self); //Code 0: Verbunden, sonst Fehler
end;

//----

procedure TTestForm.TestAllConnections;
var
   IP: string;
   Test: TTestConnection;
begin
   for IP in FListOfIpAddresses do
   begin
      Test := TTestConnection.Create;
      Test.TestConnection(IP, NotifyConnectionResult);
   end;
end;

procedure TTestForm.NotifyConnectionResult(const AIp: string; const AErrorCode: Integer; const AInstance: TTestConnection);
begin
   if AErrorCode = 0 then
      //Erfolgreiche Verbindung anzeigen
   else
      //Verbindung fehlgeschlagen anzeigen
      
   AInstance.Free;
end;