hallo SirThornberry
habe es so jetzt probiert aber ohne erfolg
ich schicke den dateinamen als zusätliche variable namens
"datei" typ string beim client
beim server hab ich ein zweites "socket.ReceiveText"
ich weiß nicht ob das schon der fehler ist
hab aber den variableninhalt weitergegeben in die variable
"test"
nun schicke ich den dateinamen zuerst was in "test abgelegt
wird (glaub ich halt ) und dann ruf ich die variable "test"
in der befehlszeile für datei streamen auf
Socket.SendStream(TFileStream.Create(test, fmOpenRead or fmShareDenyWrite));
dann schick ich den befehl fürs datei streamen.
client
Code:
procedure TForm1.Button3Click(Sender: TObject);
var orders : string;
datei:string;
begin
////// Befehl an den Server Datei streamen
if Checkbox14.Checked = True then
begin
orders := 'schicke';
Clientsocket1.Socket.SendText(orders);
end;
////// Dateinamen in die Variable datei am Server ablegen
if Checkbox17.Checked = True then
begin
datei := 'c:\aa.txt';
Clientsocket1.Socket.SendText(datei);
end;
server
[code]procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var orders : string;
datei : string;
test : string;
begin
orders := socket.ReceiveText;
datei := socket.ReceiveText;
test := datei;
if orders = 'schicke' then
begin
Socket.SendStream(TFileStream.Create(test, fmOpenRead or fmShareDenyWrite));
end;
end;
aber es funzt nicht, wo liegt hier der fehler oder ist das absoluter blödsinn
mfg vader