Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Файлы идут очень долго. [D5, Win95/98]

romychk © (2003-09-09 16:04:00)

Для пересылки файлов использую компоненты: 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 Мб. не заметишь, может подправить какие то свойства,...?

Deff (2003-09-10 22:48:00) [1]

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

AlexDBases (2003-09-10 10:34:00) [2]

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

Digitman (2003-09-10 08:16:00) [3]

> Digitman

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

romychk (2003-09-09 18:07:00) [4]

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

Digitman (2003-09-09 17:46:00) [5]

> romychk

какой ?

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

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

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

Digitman (2003-09-09 17:28:00) [7]

> romychk

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

romychk (2003-09-09 17:23:00) [8]

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

Digitman (2003-09-09 17:00:00) [9]

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

romychk (2003-09-09 16:57:00) [10]

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

Digitman (2003-09-09 16:21:00) [11]

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

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »