Małe strumienie ;]

0

Napisałem program i przesyła mi pliki przez Client/ServerSocket (jejejejje!). Przesyłam za pomocą SendStream(STREAM);
a moja procedurka odbierania jest taka:

var
Buffer : array[0..4026] of char;
RealSize : Integer;
begin
nowy := TFileStream.Create(edit2.Text, fmCreate);

RealSize := socket.ReceiveBuf(Buffer, SizeOf(Buffer));
nowy.WriteBuffer(Buffer, RealSize);

end;
pare rzeczy pominalem ktore raczej nie sprawiaja problemu ALE teraz pojawia sie problem ze jezeli plik ma wiecej niz te 4026 bajtow to juz nie przesyla... a jak 1000000 tam wpisze to i tak tylu bajtow nie przesyla.... wiec czy mozna jakos to ominac ? moze mozna zapisywac strumienie BlockWrite'em ?--co by było bez forum.....

0

W zrodlach masz zrodlo programu.--------BLOK REKLAMOWY------
kanał : #4programmers.net
server: warszawa.ircnet.pl
------BLOK REKLAMOWY------

1 użytkowników online, w tym zalogowanych: 0, gości: 1