Named Pipes - mitlesen

[kuba]

Hallo,

ich hab hier ein Programm, das kommuniziert über RS232, gibt diese Daten dann per Named Pipes an andere Prozesse weiter.
Mittlerweile habe ich es geschafft die Named Pipe mitzulesen, ich erhalte jedoch immer nur unvollständige Informationen.
ich vermute es liegt an dem eingesetzten Timer, der nach Ablauf den Buffer neu füllt und nichtaufgezeichnete Daten überschreibt.

Aber wie macht man das denn ???

Folgenden Code verwende ich zur Zeit:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var
   FSA : SECURITY_ATTRIBUTES;
   FSD : SECURITY_DESCRIPTOR;
begin
   Timer1.Enabled:=false;
   Memo1.Clear;
   InitializeSecurityDescriptor(@FSD, SECURITY_DESCRIPTOR_REVISION);
   SetSecurityDescriptorDacl(@FSD, True, nil, False);
   FSA.lpSecurityDescriptor := @FSD;
   FSA.nLength := sizeof(SECURITY_ATTRIBUTES);
   FSA.bInheritHandle := True;

   Pipe:= CreateFile(PChar('\\.\pipe\Output'),
                     GENERIC_READ or GENERIC_WRITE,
                     0,
                     @FSA,
                     OPEN_EXISTING,
                     0,
                     0);
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Button1Click(self);
end;


procedure TForm2.Button1Click(Sender: TObject);
var
   buffer: shortstring;
   dw    : dword;
begin
   Timer1.enabled:=true;
   ReadFile(Pipe, buffer, sizeof(buffer), dw, nil);
   Memo1.Lines.Add(buffer);
end;

Jemand eine Idee wie ich die Pipe komplett mitschneiden kann ?

KUBA

[Apollonius]

Du überschreibst das Längenbyte des Shortstrings, wodurch der String abgeschnitten wird. Du darfst buffer[0] nicht überschreiben. Du kannst dann buffer[0] := dw setzen.
Übrigens kannst du dir das Herumgetüftele mit den Security Attributes sparen. Setze einfach nil für den Parameter ein; nur beim Ersteller wird die Information überhaupt ausgewertet.

[kuba]

Das verstehe ich nicht wirklich, wie soll das denn aussehen ?

etwa so ?

Delphi-Quellcode:

buffer[0] := dw;
ReadFile(Pipe, buffer[0], sizeof(buffer), dw, nil);

kuba

[Apollonius]

Nachdenken! Welchen Wert hat dw vor dem Aufruf von ReadFile? Warum überschreibst du noch immer buffer[0]?

[kuba]

welchen Wert dw vor ReadFile hat ? Undefiniert, oder ?

Wieso überschreibe ich den buffer ? Ich fange doch bei 0 an (buffer[0]) und will dann die Länge ausgeben (sizeof(buffer)).

Verstehe nicht :pale:

kubaa

[Apollonius]

Undefiniert, eben. buffer[0] := dw also nach dem ReadFile.

Zitat:

Wieso überschreibe ich den buffer ? Ich fange doch bei 0 an (buffer[0]) und will dann die Länge ausgeben (sizeof(buffer)).

Das müsstest du mir nochmal erklären. Was macht ReadFile und was bedeuten die Parameter?

[kuba]

moment mal, habe ich nach READFILE nicht die Anzahl der gelesenen Bytes in dw ??

Bei buffer[0] := dw; sagt der Compiler [Fehler] client.pas(45): E2010 Inkompatible Typen: 'Char' und 'Cardinal'

Müsste es nicht dw:=0 sein ?

kuba

[Apollonius]

Zitat:

moment mal, habe ich nach READFILE nicht die Anzahl der gelesenen Bytes in dw ??

:cyclops:
Fein erkannt. Daher soll ja das Längenbyte des Shortstrings überhaupt erst den Wert dw erhalten. Du kannst übrigens ganz unbesorgt nach Char casten.

[himitsu]

ein ShortString hat an erster Stelle ein LängenByte, welches die Länge des Strings innerhalb dessen Speichers angibt.
Das ist auch ein/der Grund, warum der Delphi-String, wegen der Abwärtskompatibilität und aus Gewohnheitsgründen (wenn man das jetzt auf 0 ändert, müßten bestimmt 95% der Delphi-Anwendungen überabeitet werden), ebenfalls mit 1 beginnt, obwohl es dort dieses Längenbyte nicht mehr in dieser Form gibt.

Delphi-Quellcode:

ReadFile(Pipe, buffer[1], 255, dw, nil);
buffer[0] := AnsiChar(dw);  // aka SetLength(buffer, dw);

[kuba]

Supi, ich habs jetzt:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
   buffer: shortstring;
   dw    : dword;
begin
   Timer1.enabled:=true;
   ReadFile(Pipe, buffer[0], sizeof(buffer), dw, nil);
   buffer[0] := Char(dw);
   Memo1.Lines.Add(buffer);
end;

Jetzt hab ich nur gelegentlich Zeilen mit Zeichen die nicht in der Pipe sind. Vermutlich genau dann, wenn die Pipe gerade bedient wird und mein Timer eine Abfrage startet.

kuba

[himitsu]

ReadFile + buffer[1] !

daher könnte auch ein unbestimmtes Zeichen am Ende des Strings stammen
und ein fehlendes Zeichen am Anfang des Strings :angel2:

[add]
und dann auch nicht SizeOf(Buffer), sondern High(Buffer) !
(beim ShortString gibt High den höchstmöglichen Zeichenindex und somit die Maximallänge an)

[kuba]

Ja, tatsächlich. Jetzt hab ich die Daten komplett !

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
   buffer: shortstring;
   dw    : dword;
begin
   Timer1.enabled:=true;
   ReadFile(Pipe, buffer[1], high(buffer), dw, nil);
   buffer[0] := Char(dw);
   Memo1.Lines.Add(buffer);
end;

thanx ! :thumb:

kuba

[himitsu]

nimm aber besser statt dem char(dw) eine der beiden Möglichkeiten

Delphi-Quellcode:

buffer[0] := AnsiChar(dw);

SetLength(buffer, dw);

bei SetLength weiß man vielleicht in jahren noch, was gemeint ist

und das mit dem AnsiChar ... nja, ab Delphi 2009 ist Char ein WideChar, aber ShortString bleibt Ansi und dann gibt es Probleme wegen dem Unicode-zu-Ansi.

[kuba]

Zitat:

Zitat von himitsu

bei SetLength weiß man vielleicht in jahren noch, was gemeint ist

ich weiss genau was du meinst, ich hatte ungefähr 10 Jahre "Programmierpause". Inzwischen hat sich viel verändert :angel2:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
   buffer: shortstring;
   dw    : dword;
begin
   Timer1.enabled:=true;
   ReadFile(Pipe, buffer[1], high(buffer), dw, nil);
   SetLength(buffer, dw); //buffer[0] := PAnsiChar(dw);
   Memo1.Lines.Add(buffer);
end;

kuba

[kuba]

Hallo,

ich möchte in meinem buffer noch ein event filtern, das sieht so aus: ?C*PU00000B8F
Dabei ist ?C*PU das Event und 00000B8F die Value in HEX.

Kann mir wohl nochmal jemand auf die Sprünge helfen, mit dem buffer hab ich´s nicht so :cyclops:

kuba

[himitsu]

String (den hast'e schon) + Pos und Copy?

[kuba]

ja genau, copy ...

kuba

[kuba]

Hallo,

sch..ade, ich komm nich drauf :pale:

dies sollte doch eigentlich funktionieren:

Delphi-Quellcode:

if Pos('?C*PU',buffer) > 0 then
Edit1.Text:=copy(buffer,(pos('?C*PU',buffer)+5),8);

aber es kommt nur müll :glaskugel:

kuba