fil overførsel ved brug af client og serversocket
Jeg har snart brug mange timer på dette problem.Jeg har to programmer serveren og clienten. Jeg prøver et implamentere en funktion der kan sende filer fra serveren til clienten. Problemmet er at jeg kan godt sende små filer men når de bliver stører melder problemmerne sig. Clienten modtager og gemmer ikke de rigtige data :(.
Server:
{sender med denne simple commando, strcom er stien til den pågældende fil.}
userSocket.SendStream(TFilestream.Create( strcom, fmOpenRead or fmSharedenywrite));
Client:
procedure filetranspro(socket:TCustomWinSocket);
Var
F : TFileStream;
iLen, counter: Integer;
Bfr: Pointer;
begin
F := TFileStream.Create(form1.Edsavepath.text, fmCreate);
iLen := Socket.ReceiveLength;
GetMem(Bfr, iLen);
try
while true do
begin
counter:=Socket.ReceiveBuf(Bfr^, iLen);
if counter<=0 then
break
else
F.WriteBuffer(Bfr^, counter);
end;
finally
FreeMem(Bfr);
freeandnil(f);
end;
end;
Client type er: ctNonBlocking.
Er der nogen der ved hvad jeg gør galt eller har en idee til hvordan man ellers kan overføre filer ved brug af client og server socket ?
