Вниз
Скачать: CL | DM;

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

← →
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 ©   (2003-09-10 08:16) [9]


> Digitman


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


← →
AlexDBases ©   (2003-09-10 10:34) [10]

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


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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.02 c
3-40933
stud
2003-10-17 11:39
2003.11.13
события в файрберд


4-42274
bytebutcher
2003-09-12 13:52
2003.11.13
По каким признакам определить что окно отображается в TaskBare?


14-41941
Style
2003-10-20 15:12
2003.11.13
certifications.ru


1-41146
Seldon
2003-11-04 21:26
2003.11.13
следующий TabStop


1-41191
exciter__
2003-11-01 13:16
2003.11.13
Поиск кнопок во всем проекте.




   Наверх