передача файлов по сети

← →
Тимофей Юрьевич © (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-компоненты.

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

TClientSocket, TTCPClient, TIdTCPClient

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