hallo
hab da einen server und einen client (socks)
jetzt kann der client den server einen befehl schicken,
das der server eine bestimmte datei den client sendet
aber der hacken an der sache ist,diese bestimmte datei
steht im programmcode des servers.
jetzt möchte ich aber das der client den server sagt welche
datei er senden soll !!!
server
Code:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var orders : string;
begin
orders := socket.ReceiveText;
if orders = 'schicke' then
begin
Socket.SendStream(TFileStream.Create('c:\aa.txt', fmOpenRead or fmShareDenyWrite));
end;
end;
client
Code:
procedure TForm1.BefehlClick(Sender: TObject);
var orders : string;
begin
if Checkbox14.Checked = True then
begin
orders := 'schicke';
Clientsocket1.Socket.SendText(orders);
end;
wie könnte man das lösen
für jeden progammschnipsel wäre ich sehr dankbar
mfg vader