so und jetzt habe ich mich malwieder etwas damit bescheftig und ich hoffe das es jetzt etwas besser is als vorher, aber es geht immer noch nicht so wie ich es will
client:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
buffer:pointer;
begin
FStream := TFileStream.Create('X:\bluetooth.mdf', fmOpenRead or fmShareDenyWrite);
buffer := AllocMem(fStream.Size);
FStream.Read(buffer^,FStream.Size);
ClientSocket1.Socket.SendBuf(buffer^,FStream.Size);
FreeMem(buffer);
FreeAndNil(fstream);
end;
server:
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
buffer:pointer;
len:integer;
begin
len := Socket.ReceiveLength;
FStream:=tfilestream.Create('c:\ka.mdf',fmcreate);
FStream.Seek(0,soFromEnd);
buffer := AllocMem(len);
socket.receivebuf(buffer^,len);
FStream.Write(buffer^,len);
FreeMem(buffer);
freeandnil(FStream);
end;