du könntest es so abändern
Delphi-Quellcode:
procedure TForm1.BefehlClick(Sender: TObject);
var orders : string;
begin
if Checkbox14.Checked = True then
begin
orders := 'schicke:c:\abc.txt';
Clientsocket1.Socket.SendText(orders);
end;
end;
und beim server dann
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var orders : string;
begin
orders := socket.ReceiveText;
if pos('schicke:', orders) = 1 then
begin
Socket.SendStream(TFileStream.Create(copy(orders, 9, length(orders) - 8), fmOpenRead or fmShareDenyWrite));
end;
end;
Ungetestet, soll auch nur nen lösungsansatz sein