Форум: "Сети";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];

Вниз

прога работающая с модемом   Найти похожие ветки 

← →
Mistic   (2003-10-29 22:07) [0]

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

---

← →
mashinist   (2003-10-29 22:17) [1]

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

---

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

Я еще не мастер, но такую вещь я знаю. Я брал 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)). А если вам нужна пересылка файла, то скажите и я напишу...

---

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

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

---

← →
Mistic   (2003-10-29 23:23) [4]

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

---

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

В исходниках, которые я описал выши в сервере напиши
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 по модему

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.008 c