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.....