Named Pipes - mitlesen

[kuba]

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

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