[delphi6] filetransfers met clientsocket

[THIJZEL]

Hey,

Weet iemant precies hoe ik filetransfers kan doen met delphi, Ik ben al een beetje bezig geweest met clientsocket.socket.sendbuf, maar hetw il nog niet helemaal werken..

(sourcefile is bv c:\test.txt)

ik heb nu voor het zenden...:

code:

var i:integer;
begin
        if clientsocket1.Socket.Connected = true then
        begin
        sourcefilestr:=tfilestream.Create(sourcefile,fmOpenRead);


                for i:=1 to ((sourcefilestr.Size) div 100) do
                begin
                        clientsocket1.Socket.SendBuf(sourcefilestr,100);
                end;

        end;
end;

maar dit werkt niet echt... hoe groot moet ik de buffersize maken?? met 100 heb ik maar wat gegokt..

Het leesgedeelte ben ik ook nog mee bezig.. Waarschijnlijk is het iets met readbu en die dan schrijven naar een file( met blocks van buffersize?).


kan iemand me een schopje in de goede richting geven?

[Predator]

Wat heeft dit met PNS te maken
Dit is een programmeer vraag.

Ik betwijfel of je topic zo in P&W kan, lees eerst de FAQ daar door:
Welkom in P&W: FAQ en Beleid *updated: 14-04*