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
