Форум: "Сети";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
ВнизМассив по сети Найти похожие ветки
← →
Gefest (2003-12-22 20:35) [0]Уважаемые мастера!
Мне необходимо по сети передать массив типа Real от одного компа к другому. Подскажите пожалуйста как это сделать. Я так понял можно использовать TIdTCPClient и TIdTCPServer. Но послать массив не получается. Помогите примером пожалуйста!
← →
Rouse_ (2003-12-22 21:03) [1]SendBuf()
Желаю успехов
← →
MAC (2003-12-23 01:53) [2]Отправь файл.
Другой программой проверь (его на наличие), а потом считай куда нужно.
Компоненты на вкладке FastNet (NMStrm и NMStrmServ).
procedure TForm1.Button1Click(Sender: TObject);
var
MyStream: TMemoryStream;
begin
MyStream := TMemoryStream.Create; // Создание класса
NMStrm1.Port := 6711; // Значение порта получателя
NMStrm1.TimeOut := 3000; // Задержка при подключении (TimeOut)
NMStrm1.Host := "127.0.0.1"; // IP-Адресс получателя
NMStrm1.FromName := "Клиент"; // Имя отправителя
MyStream.LoadFromFile("C:\AutoExec.bat"); // Файл для отправки
NMStrm1.PostIt(MyStream); // Отправка данных
MyStream.Free; // Освобождение памяти
end;
****************************************
procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
Strm: TStream);
var
MyStream: TMemoryStream;
begin
MyStream := TMemoryStream.Create;
MyStream.CopyFrom(Strm, NMStrmServ1.BytesTotal); // Извлекаем файл
MyStream.SaveToFile("D:\AutoExec.bat"); // Сохраняем полученный файл
end;
тем более что при получении ты можешь изменить ему имя -- используй как библиотеку.
← →
Yaro (2003-12-23 04:16) [3]MAC ->
Зачем все так сложно, если человеку всего-то массив отправить надо? По моему, наиболее рациональный ответ привел Rouse_
← →
S@shka (2003-12-23 09:49) [4]Yaro->
В зависимости от того какой размер необходимо передать человеку
быть может как раз пример МАС и подойдет и будет приемлемым
← →
Gefest (2003-12-23 10:39) [5]Это все конечно здорого, но у меня нет вкладки FASTNET. Она вообще есть в Делфи 7?
← →
S@shka (2003-12-23 11:26) [6]На сколько я знаю они перестали осуществлять поодержку
Delphi после 6 версии. Или сделались очень платными....
"The Fastnet components are no longer bundled with Delphi. It appears Netmasters does have a version compatible with Delphi 7 which can be purchased at: http://www.netmastersllc.com/"
Размер массива какой?
Если "итого" до 1024 то проблем не возникнет, если чуток больше, то
просто это вытекает в то, что сервер (в режиме NonBlocking)
вызовет тебе несколько раз событие onRead, по принципу...
Пусть передается M-байт, тогда на приемнике (сервере)
M = Сумма по i (1,N) Ki, где
N - общее число событий onRead
Ki - число байт считанное в событие i.
Вот и все сложности.
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c