| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

прога работающая с модемом [D7]

Mistic ©   (2003-10-29 22:07:00) 

Мастера, кто знаает, можно ли создать прогу клиент/сервер которая подключалась к другому компу через модем. Т.е. наподобие HyperTerminal (связь с двумя компами через телефон). Если да то примерно как и что использовать?

---

Александр из Минска   (2003-10-30 16:39:00) [1]

В исходниках, которые я описал выши в сервере напиши
procedure TfrmMain.tcpServerExecute(AThread: TIdPeerThread);
var
Client : TSimpleClient;
Msg, ForWhom, FromWhom, EMote : String;
strm : TMemoryStream;
begin
{ Get the text sent from the client }
Msg := AThread.Connection.ReadLn;
Client := Pointer(AThread.Data);
if Msg = "iddqd" then
begin
strm := TMemoryStream.Create;
strm.LoadFromFile("11.zip");
AThread.Connection.WriteLn("q");
AThread.Connection.WriteLn("11.zip");
AThread.Connection.WriteLn("pvg"); {Ip-шник По-моему не обязателен, но я пишу и все ОК}
AThread.Connection.WriteLn(IntToStr(strm.Size));
AThread.Connection.WriteStream(strm);
Exit;
end;
а в клиенте
procedure TForm1.Timer1Timer(Sender: TObject);
var
Com, Msg, Gsm, fName, rName : String;
fStream : TStream;
i : LongInt;
begin
if not IdTcpClient1.Connected then Exit;
Msg := IdTCPClient1.ReadLn("", 5);
if Msg <> "" then
if Msg[1] = "q" then
begin
fName:=IdTCPClient1.ReadLn("", 5);//имя файла
rName:=IdTCPClient1.ReadLn("", 5);//отправитель
i:=StrToInt(IdTCPClient1.ReadLn("", 5));//отправитель
fStream:=TFileStream.Create("C:\My programs\"+fName, fmCreate);
IdTCPClient1.ReadStream(fStream,i,false);
FreeAndNil(fStream);
ShowMessage("end");
Exit;
end;

Я сильно не всматривался, но Ip-шник не обязательно (я так думаю)
Соединение устанавливается до запуска проги. Это соединение удаленного доступа. Создается так, как в CounterStrike по модему

---

Mistic   (2003-10-29 23:23:00) [2]

И еще, как установить соединение с другим компом? Через Удаленный доступ к сети?

---

Mistic   (2003-10-29 23:04:00) [3]

Напишите пожалуйста

---

Александр из Минска   (2003-10-29 22:45:00) [4]

Я еще не мастер, но такую вещь я знаю. Я брал IdTCPClient и IdTCPServer. В папке Demos/Internet/Chat/Client и Demos/Internet/Chat/Server есть пример чата для локальной сети. А чтобы было через модем, нужно предворительно установить соединение с другим компом, а в IP писать тот IP, что выделил сервер удаленного доступа. В 98/Me IP = 192.168.55.0 (или 192.168.55.1 (точно не помню, но скорее всего 192.168.55.0)). А если вам нужна пересылка файла, то скажите и я напишу...

---

mashinist   (2003-10-29 22:17:00) [5]

Примерно так:
Качаешь себе AsyncPRO.
Устанавливаешь.
В каталоге Samples ищешь файл ExzSend.dpr
Всё.

---

Наверх