Pipe EOF abfragen oder so :)

[himitsu]

Wo kommt PipeOutputRead her?

Und entweder synchron lesen und BytesRead auswerten
oder assynchron lesen, Overlapped verwenden und ReadByte ignorieren.
> siehe ReadFile


Ansonsten könnte man einfach mal gucken, wie es Andere machen
CreateProcess hStdOutput

[blablab]

PipeOutputRead erstelle ich mit CreatePipe. Ist also eine anonyme Pipe und soviel ich weiß geht das nur synchron. Und BytesRead auswerten geht ja nicht, wenn ReadFile einfach blockiert und ich somit kein BytesRead zurückgeliefert bekomm. Außerdem prüfe ich bei {4} ja schon BytesRead, aber das hat je nicht geholfen...
Extra eine named Pipe zu machen nur damit es asynchron ist, hab ich mir auch schon überlegt, aber das ist da glaub Overkill (hab noch nie ne named Pipe gemacht...).

[himitsu]

Zitat von blablab:

und soviel ich weiß geht das nur synchron.

Dann brauchst du aber keine Overlapptstruktur.

PS: Synchrones Lesen wartet so lange, bis Daten eingetroffen sind.
Ist die Gegenseite weg, sendet sie kein Daten und man wartet ewig.

[blablab]

Stimmt, das war n Fehler in meinem Quelltext. Ich hab das mal ausprobiert, aber da die Pipe sowieso synchron ist, wird Overlapped einfach ignoriert.

[himitsu]

Ich glaub da täuschst du dich etwas.

Delphi-Quellcode:

var h: THandle;
  w: Cardinal;
  o: TOverlapped;
  a, b, c, d: AnsiString;
begin
  a := '1234567890';
  h := CreateFile('a.aaa', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);
  if (h = INVALID_HANDLE_VALUE)
      or not WriteFile(h, a[1], 10, w, nil)
      or (W <> 10) then
    RaiseLastOSError;
  CloseHandle(h);

  SetLength(b, 5);
  h := CreateFile('a.aaa', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  if (h = INVALID_HANDLE_VALUE)
      or not ReadFile(h, b[1], 5, w, nil)
      or (w <> 5) then
    RaiseLastOSError;
  CloseHandle(h);

  SetLength(c, 5);
  h := CreateFile('a.aaa', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  if (h = INVALID_HANDLE_VALUE)
      or (SetFilePointer(h, 2, nil, FILE_BEGIN) <> 2)
      or not ReadFile(h, c[1], 5, w, nil)
      or (w <> 5) then
    RaiseLastOSError;
  CloseHandle(h);

  FillChar(o, SizeOf(o), 0);
  o.Offset := 3;
  SetLength(d, 5);
  h := CreateFile('a.aaa', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  if (h = INVALID_HANDLE_VALUE)
      or not ReadFile(h, d[1], 5, w, @o)
      or (w <> 5) then
    RaiseLastOSError;
  CloseHandle(h);

  DeleteFile('a.aaa');

  ShowMessage(Format('b:%d  c:%d  c:%d', [Pos(b, a)-1, Pos(c, a)-1, Pos(d, a)-1]));
end;

würde Overlappt ignoriert, dann müßte b:0 c:2 c:0 rauskommen und nicht b:0 c:2 c:3 .

Man kann das Overlappt auch synchron verwenden, wobei hier der Offset genutzt wird.

Ohne Overlappt wird die aktuelle Dateiposition verwendet und diese dabei verschoben/erhöht.
Mit Overlappt wird das dort enthaltene Offset verwendet und der Positionszeiger nicht verschoben.


Ausnahme sind Pipes/Handles, welche keinen Datenzeiger unterstützen, sondern nur eine sequentielle Übertragung.

[blablab]

Stimmt auch wieder Allerding hatte ich als Offset 0 angegeben, da mir das mit dem Offset ja auch nicht wirklich weiterhilft...

Danke dass du dir so viel Mühe gibst! Aber du brauchst mir eigentlich nix beweisen, wenn du nur schreibst, dass er den Offset nicht ignoriert, dann glaub ich dir das einfach