Mailslots ?

[Captnemo]

Hi Sakura,

ich bin zu dämlich

Ich kriegs mit deinen Komponenten nicht hin.

Also kurz was ich gemacht habe:

Server:

gnsPipeServer auf die Form. Pipename=Test. Active=True;
ProcessMessage
..
var
Text: String;
begin
Text:=StrPas(aByteArray);
Memo1.Lines.Add(Text);
end;
..

Client:

gnsPipeClient auf die Form. Pipename=Test.

..
procedure TForm1.Button2Click(Sender: TObject);
var
lpBuffer: Pointer;
Buffersize: Integer;
InCount, OutCount: Cardinal;
begin
Buffersize:=255;
GetMem(lpBuffer,Buffersize);
lpBuffer:=PChar(Edit1.text);
gnsPipeClient1.SendAndReceive(lpBuffer,Buffersize, InCount,OutCount);
FreeMem(lpBuffer, Buffersize);
end;
..

--------------------------------------
Fehlermeldung: Ungültige Zeigeroperation.

Ich weiß das was ich da mache ist sicher falsch. Aber mit Pointern hab ich nicht so

Hast du nicht ein Beispielcode für micht