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

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

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

Работа с файлами по локальной сети [D7, WinXP]

dmitrlast © (2006-05-08 10:50:00)
Уважаемые господа! Отправляю файл по сети (сервер и клиент на одной машине), клиент тут же отвечает, что не найден файл (имя). Если же такой файл (пустой) создан заранее, то он клиентом не перезаписывается. Использую Stream. Если можно, дайте пример.

Хотя, в идеале, пересылаемый сервером файл - библиотека, хотелось бы ее просто клиентом запустить.

Заранее спасибо.

Slym (2006-05-10 06:21:00) [1]
Первая ошибка: НЕТ ПРОТОКОЛА ОБМЕНА!

2. FormServer.ServerSocket1.Socket.Connections [i].SendStream(srcfile);
srcfile.Free;это лишнее, SendStream сам освобождает srcfile

3. ReceiveLength - это ты так размер принимаегого файла узнаешь?
нет! это всего лишь размер данных которые готовы с считыванию, а это может быть только часть необходимого.

dmitrlast © (08.05.06 16:01) [2]
FormClient.Memo1.Lines.Add('Получен ответ на запрос о прохождении теста...');
Delete(s, 1, 2);
ClientSocket1.Socket.SendText(s); может всетаки ReceiveText?
FormClient.Memo1.Lines.Add(s);
если всетаки ReceiveText- то ты полный Ступид
Кто тебе сказал что данные посланные оператором SendText обязательно будут приняты командой ReceiveText так как ты хочешь?
Последовательность команд:
SendText('Text')
SendStream('This is Stream')
может привести к такому:
ReceiveText('TextThis')
ReceiveBuf(' is Stream')
или к такому
ReceiveText('TextThis is Stream')
ReceiveBuf('')
или даже к такому
ReceiveText('Te')
ReceiveBuf('xtThi')
ReceiveBuf('s is St')
ReceiveBuf('ream')
что будет особенно часто наблюдаться в боевых испытаниях

dmitrlast (2006-05-08 16:01:00) [2]
Для сервера я пишу так:
procedure TFormServer.ElPopupButton2Click(Sender: TObject);
var
s: string;
i: integer;
name_file_test: string;
srcfile: TFileStream;
begin
FormServer.Memo1.Lines.Add('Дано разрешение на запуск теста клиенту: ' + datamodule1.Table4NameClient.AsString + '...');
s := '#O';
s := s + 'Разрешение дано, ждите запуска теста...';
i := datamodule1.Table4Number.AsInteger - 1;
ServerSocket1.Socket.Connections[i].SendText(s);
datamodule1.Table1.First;
while not datamodule1.Table1.Eof do
begin
if datamodule1.Table1Opisanie.AsString = datamodule1.Table4Zapros.AsString then
begin
name_file_test := datamodule1.Table1ModulTest.AsString;
abort;
end;
datamodule1.Table1.Next;
end;
srcfile := TFileStream.Create (name_file_test, fmOpenRead);
FormServer.ServerSocket1.Socket.Connections [i].SendStream(srcfile);
srcfile.Free;
end;

Для клиента:
procedure TFormClient.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
s: string;
l: integer;
buf: Pchar;
src: TFileStream;
begin
if Copy(s, 1, 2) = '#O' then
begin
FormClient.Memo1.Lines.Add('Получен ответ на запрос о прохождении теста...');
Delete(s, 1, 2);
ClientSocket1.Socket.SendText(s);
FormClient.Memo1.Lines.Add(s);
l := FormClient.ClientSocket1.Socket.ReceiveLength;
GetMem (buf, l + 1);
FormClient.ClientSocket1.Socket.ReceiveBuf(buf, l);
src := TFileStream.Create('Test.stk', fmOpenReadWrite);
src.Seek (0, soFromEnd);
src.WriteBuffer(buf, l);
src.Free;
FreeMem (buf);
end;
end;

Клиент должен дождаться разрешения сервера пройти тест, затем сервер пересылает ему файл теста.

Virgo_Style (2006-05-08 13:07:00) [3]
У тебя ошибка в программе. (с)

И ты ее нам не показываешь.

Наверх

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