Файлы идут очень долго.

← →
romychk (2003-09-09 16:04) [0]

Для пересылки файлов использую компоненты: NMStrmServ1, NMStrm1

Вот код.

procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
var
myFile: TMemoryStream;
begin
MyFile:=TMemoryStream.Create;
MyFile.CopyFrom(strm, strm.size);
MyFile.SaveToFile(imfForReciv);
MyFile.Free;
PryjnatyFail;
end;

NMStrm1.FromName :=imfForSend;
myFile:=TMemoryStream.Create;
myFile.LoadFromFile(imfForSend);
NMStrm1.PostIt(myFile);
myFile.Free;

Файл на 200 кб может идти минут 20, причем сеть хорошая 100мб., если копировать через ВИНД и 20 Мб. не заметишь, может подправить какие то свойства,...?

← →
Digitman © (2003-09-09 16:21) [1]

> Для пересылки файлов использую компоненты: NMStrmServ1,
> NMStrm1

чем это обосновано ?
компонеты - без исходных текстов, что там у них внутри происходит - одному богу известно..

чем не устраивают TClientSocket/TServerSocket ?

← →
romychk (2003-09-09 16:57) [2]

Компоненты из стандартной палитhs компонент Делфи.

← →
Digitman © (2003-09-09 17:00) [3]

TClientSocket/TServerSocket - тоже из стандартной, заметь ..

← →
romychk (2003-09-09 17:23) [4]

Мне кажется что с этими компонентами проще код полчается

← →
Digitman © (2003-09-09 17:28) [5]

> romychk

код-то , может, и проще) ... а геморрой - сам видишь какой !

← →
romychk (2003-09-09 17:37) [6]

Значит, это их стандартное поведение?

Я думаю, нельзя ли увеличить буфер...

← →
Digitman © (2003-09-09 17:46) [7]

> romychk

какой ?

← →
romychk (2003-09-09 18:07) [8]

Наверное, там он должен бить. :)

> Digitman

должен) ... но ты не доберешься до хэндла гнезда

Internet Direct - попробуй...=) коли по проще хочешь

← →
Deff (2003-09-10 22:48) [11]

Нет, здесь что-то не так, я делал, пользуя те же комноненты, 20-30 Мб файлы слались секунд за 7-10

Файлы идут очень долго. Найти похожие ветки