Форум: "Сети";
Текущий архив: 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.047 c
