Снова idtcp

[Pedro]

Как отправить файл от idtcpclient'a на idtcpserver?

[Квэнди]

Отправка:


procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
var
FileToSend: String;
FileSize: Cardinal;
p: Pointer;
begin
FileToSend := 'c:\MSDOS.SYS'; // тут файл, который мы рассылаем любому попросившему.
with TFileStream.Create(FileToSend, fmOpenRead) do
try
FileToSend := ExtractFileName(FileToSend) + #00;
GetMem(p, 256);
try
CopyMemory(p, @FileToSend[1], Length(FileToSend));
AThread.Connection.Socket.Send(p^, 256);
finally
FreeMem(p);
end;
FileSize := Size;
AThread.Connection.Socket.Send(File Size, SizeOf(FileSize));
GetMem(p, Size);
try
ReadBuffer(p^, Size);
AThread.Connection.Socket.Send(p^, Size);
finally
FreeMem(p);
end;
finally
Free;
end;
AThread.Connection.Disconnect;
ShowMessage('Послано');
end;



Получение:

procedure TForm1.IdTCPClient1Connected(Sender : TObject);
var
FileName: PChar;
FileSize: Cardinal;
FS: TFileStream;
begin
GetMem(FileName, 256);
try
IdTCPClient1.ReadBuffer(FileName^, 256);
IdTCPClient1.ReadBuffer(FileSize, SizeOf(FileSize));
FS := TFileStream.Create('incoming\'+File Name, fmCreate); // тут создается файл, я его положил в каталог incoming
try
IdTCPClient1.ReadStream(FS, FileSize);
finally
FS.Free;
end;
finally
FreeMem(FileName);
end;
ShowMessage('Принято');
end;

[Pedro]

Спасибо Квэнди! Вот еще вопрос, как сделать чтобы сервер отправлял принятое сообщение(текст) от клиента, всем клиентам?

[Квэнди]

Соединение с клиентом создается только в момент получения от него сообщения, соединение не держится
Для каждого соединения создается отдельный поток, поэтому внутри него мы не знаем есть ли сейчас текущие активные соединения.
Выход один: хранить где- то массив клиентов ( IP адреса) и по получении в цикле отправлять на эти адреса сообщения

[Pitbull]

Сообщение от Квэнди

Соединение с клиентом создается только в момент получения от него сообщения, соединение не держится
Для каждого соединения создается отдельный поток, поэтому внутри него мы не знаем есть ли сейчас текущие активные соединения.
Выход один: хранить где- то массив клиентов ( IP адреса) и по получении в цикле отправлять на эти адреса сообщения

либо использовать UDP , вместо TCP ....

[Pedro]

Вы не могли бы привести код. Заранее благодарен.

[Квэнди]

Какой именно код ?
в Onconnect на Tcpserver сохраняешь IP адрес клиента, который к тебе подсоединился, доступный в athread.Connection.Socket.Binding.P eerIP

затем в onexecute идешь по массиву сохраненных ip адресов и отправляешь свое сообщение

[SeЯgey]

Квэнди, можно показать код отсылки файла по сохраненным ip адресам
и еще вопрос клиент автоматически подсоединяются к серверу т.е. запускаются программы и клиенты подсоединяются, сервер сохраняет в массив ip адреса и передает файл всем клиентам.


заранее большое спасибо

[Квэнди]

проверяйте какой в AThread.Connection.Socket ip адрес и делайте вывод отправлять или нет.

[SeЯgey]

можно еще вопрос. Передовать файлы в обе стороны возможно или необходимо на обе программы прописывать и клиента и сервер.
Если нет как передать от клиента к серверу?