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

передача файлов по сети   Найти похожие ветки 

← →
Тимофей Юрьевич ©   (2006-06-13 10:36) [0]

привет всем,такой вопрос данным кодом отправляю файл по сети
var
 MyStream: TMemoryStream;
 i:integer;
begin
MyStream := TMemoryStream.Create;
NMStrm1.Port := 6711;
NMStrm1.TimeOut := 3000;
try
for i:=0 to listbox1.Items.Count-1 do
begin
NMStrm1.Host :=Listbox1.Items.Strings[i];
nmstrm1.FromName:="User";
MyStream.LoadFromFile(edit1.Text);
NMStrm1.PostIt(MyStream);
MyStream.Free;
end;
finally
end;

ipшники находятся в листбокс,все рапотает норм,но если на удаленном компе не включен клиент,то прога выдает ошибку,помогите как правильно сделать исключения на ошибки


← →
Сергей М. ©   (2006-06-13 10:40) [1]

try
 NMStrm1.PostIt(MyStream);
except
end;


← →
Тимофей Юрьевич ©   (2006-06-13 11:00) [2]

все равно лезет ошибка,не уж то никак не присечь ее?


← →
Сергей М. ©   (2006-06-13 11:02) [3]

Луше вообще не использовать NM-компоненты.


← →
Тимофей Юрьевич ©   (2006-06-13 11:04) [4]

окей,можете посоветовать какие то аналогичные?


← →
Сергей М. ©   (2006-06-13 11:06) [5]

TClientSocket, TTCPClient, TIdTCPClient



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

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



Память: 0.45 MB
Время: 0.041 c
2-1149817570
Василий
2006-06-09 05:46
2006.07.02
Работа печати через "Begindoc...EndDoc"


3-1146750076
Ольга
2006-05-04 17:41
2006.07.02
Скрипт объекта БД посредством SQLDMO.SQLServer


2-1150194744
JTAG
2006-06-13 14:32
2006.07.02
Господа, подскажите пожалуйста, как заменить иконку


2-1149868596
Антибайт
2006-06-09 19:56
2006.07.02
Указатели пойнтеры


15-1149644353
Никос
2006-06-07 05:39
2006.07.02
Общее




   Наверх