Kommunikation zwischen mehreren eigenen Tools ... Womit?

[RavenIV]

Ja, NamedPipes funktionieren auch im Netzwerk.
MailSlots prinzipiell auch, dafür benötigt man aber dann eine Netzwerk-Domäne oder Workgroup.

[torud]

Also das ist doch aber als Vorgabe eingestellt.

Server:
Name = gnsPipeServer1
Pipename = Test

Client:
Name = gnsPipeClient1
PipeName = test
Server = . //ist Vorgabe

Bei mir gehts nicht...Fehler wie oben schon beschrieben...

[torud]

Ich nehme alles zurück ab Guten Morgen!!!

Ich habe das Bild erst eben gesehen, WO ich den . eingeben muss und dann gehts wirklich!!!

[oki]

Hi torud,

jetzt muß ich hier auch mal meinen Senf dazu geben.
Auch wenn ich RavenIV's Meinung schätze, kann ich seine Aussagen zu TCP/IP nicht unterstützen. Ich halte sie sogar für grund falsch!
Die Funktionsfähigkeit von TCP/IP auf einem Rechner ist vorrangig an die Installation gebunden. Ob die Netzwerkkarte aktiv ist, ist dabei nicht relevant. Ich kann auch einen virtuellen WAN-Treiber installieren und TCP/IP funzt.
Das bei gezogenem Netzwerkkabel ab XP die Netzwerkkarte deaktiviert wird und somit die eingetragene IP-Adresse nicht mehr gültig ist verhindert trotzdem nicht den Zugriff auf 127.0.0.1 (LocalHost). Damit kann ich dann locker jeden Socket-Server auf meinem Rechner erreichen.
Ich muß auch ehrlich sagen, dass ich seit Jahren keinen Rechner mehr ohne Netzwerk gesehen habe. Desweiteren finden sich haufenweise Tuts und Beispiele für Socket-Verbindungen. Die Handhabung ist imho simpel.

Damit will ich nicht sagen, dass es Pipes nicht tun, aber einen Blick sind die Sockets schon wert.

Gruß oki

[torud]

Ciao Oki,

"lange" nichts von Dir gelesen. Ich glaube seit den CustomControls!?

Hätte das heute vormittag schon gelesen, hätte ich es direkt mit den Socket-Verbindungen gemacht, da ich dies schon des öfteren so gehandhabt habe - dies aber immer auf Firmeneigenen PC´s, wo die Hardwareumgebung bekannt ist bzw. notfalls angepasst wurde. Ich möchte jetzt nicht Ravens Bemühungen durch sofortiges Abwenden von den NamedPipes untergraben und werde mich also noch ein wenig quählen.

Damit ich nun endlich ans Ziel komme, müsste ich nur noch wissen, wie ich an den gesendeten Inhalt komme, denn gesendet wird ja, so wie ich das überblicke, immer das gesamte Alphabet, aber der Server zeigt nut die empfangenen "Pakete" an.

Diese Procedure hängt am Server und sollte mir eigentlich auch den geschickten Content liefern können....Oder!?

Delphi-Quellcode:

procedure TForm2.gnsPipeServer1ProcessMessage(Sender: TObject;
  aByteArray: Pointer; BufferSize, InCount: Cardinal;
  var OutCount: Cardinal; var DisconnectClient: Boolean);
var
  I: Cardinal;
  Temp: TByteArray;
begin
  lbl_count.Caption := IntToStr(Succ(StrToIntDef(lbl_count.Caption, 0)));
  for I := 0 to Pred(InCount) do
    Temp[I] := TByteArray(aByteArray^)[Pred(InCount - I)];
  for I := 0 to Pred(InCount) do
    TByteArray(aByteArray^)[I] := Temp[I];
end;

[oki]

Hi torud,

sorry, aber ich bin bei den Pipes nicht so fitt. Ich wollte die auch nicht schlecht machen, sondern nur die Aussage gegen die Sockets korrigieren. Wenn das mit den Pipes klappt, mach es, denn die Sockets haben auch ihre Tücken.

Gruß oki

[OT] Hat das mit den Controls geklappt? [/OT]

[torud]

Hi Oki,

Danke für Dein Feedback. Ich werde noch etwas damit versuchen und wenn es klappt, dann würde ich die Pipes den Sockets vorziehen, da ich hier auch den Server nach dem Client starten könnte.

[ot]
Die Controls habe ich weiter gebaut, aber es gibt noch diverse Probs. Ich werde in dem Thread nochmals posten.
[/ot]