[delphi6]File transfers

[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?

[LordLarry]

Je hebt al een Stream, dus het handigste is dan SendStream te gebruiken ipv SendBuf.

[dusty]

Het voorbeeld wat bij Delphi6 zelf zit zeker nog niet bekeken?

[Verwijderd]

Om een text string over te sturen wordt het zoiets:

code:

Var A:string;
Begin
A:= edit1.text;
clientsocket1.Socket.SendText(a);
end

Voor de server die ontvangt:

code:

ServerSocket1.Onclientread
Var A:string;
begin
Socket.Receicetext(a)
edit2.text:= a;
end;

[THIJZEL]

Verwijderd schreef op 18 april 2003 @ 19:02:
Om een text string over te sturen wordt het zoiets:

code:

Var A:string;
Begin
A:= edit1.text;
clientsocket1.Socket.SendText(a);
end

Voor de server die ontvangt:

code:

ServerSocket1.Onclientread
Var A:string;
begin
Socket.Receicetext(a)
edit2.text:= a;
end;

yup, maar ga een binair bestand van 100mb maar eens zo versturen.

Die procedures werken wel voor een chatprogramma.

[ Voor 6% gewijzigd door THIJZEL op 18-04-2003 20:46 ]