|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.02.2007, 15:53 | #1 |
Регистрация: 30.01.2007
Сообщений: 3
|
Как открыть порт?
Ни знаю как открыть порт. Написал прогу на сокетах. Проверил сканером портов, порт каторый я выбрал оказался закрытым, как сделать так чтобы его открыть?
|
01.02.2007, 16:09 | #2 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
ServerSocket1.Enabled:=True;
ICQ: 5311314
[SIGPIC][/SIGPIC] |
01.02.2007, 20:47 | #3 |
Регистрация: 30.01.2007
Сообщений: 3
|
у меня код вроде нармально пашет проверял по локальной сетке, а вот в интернете клиент он не может найти сервер
код сервера: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ScktComp, ComCtrls; type TForm1 = class(TForm) ServerSocket1: TServerSocket; Memo1: TMemo; Memo2: TMemo; StatusBar1: TStatusBar; Button1: TButton; procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Button1Click(Sender: TObject); procedure ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); procedure ServerSocket1Accept(Sender: TObject; Socket: TCustomWinSocket); procedure ServerSocket1ClientDisconnect(Sende r: TObject; Socket: TCustomWinSocket); procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin IF Key = VK_Return then ServerSocket1.Socket.Connections[0].SendText(Memo1.Lines[Memo1.Lines.count - 1]) end; procedure TForm1.Button1Click(Sender: TObject); begin ServerSocket1.Active:=true; StatusBar1.Panels[0].Text:='Прослушивание'; end; procedure TForm1.ServerSocket1ClientConnect(S ender: TObject; Socket: TCustomWinSocket); begin Memo2.Lines.Add('Подлючение ОК'); end; procedure TForm1.ServerSocket1Accept(Sender: TObject; Socket: TCustomWinSocket); begin Memo2.Lines.Add('Готов к работе'); StatusBar1.Panels[0].Text:='Соединено с:'+Socket.RemoteAddress; end; procedure TForm1.ServerSocket1ClientDisconnec t(Sender: TObject; Socket: TCustomWinSocket); begin StatusBar1.Panels[0].Text:='Прослушивание соединения...'; end; procedure TForm1.ServerSocket1ClientRead(Send er: TObject; Socket: TCustomWinSocket); begin Memo2.Lines.Add('Получен текст:'+Socket.ReceiveText); end; end. код клиента: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ScktComp, ComCtrls; type TForm2 = class(TForm) ClientSocket1: TClientSocket; Memo1: TMemo; Memo2: TMemo; StatusBar1: TStatusBar; Button1: TButton; Button2: TButton; procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); procedure ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket); procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin IF Key = VK_Return then ClientSocket1.Socket.SendText(Memo1 .Lines[Memo1.Lines.Count - 1]); end; procedure TForm2.Button1Click(Sender: TObject); Var Server: String; begin IF ClientSocket1.Active then ClientSocket1.Active:=false; IF InputQuery('Установить связь с', 'Псевдоним IP-адреса:',Server) then IF Length(Server)>0 then With ClientSocket1 do begin Host:=Server; Active:=True; end; end; procedure TForm2.Button2Click(Sender: TObject); begin ClientSocket1.Active:=False; end; procedure TForm2.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin StatusBar1.Panels[0].Text:='Соединенно с адрессом:'+Socket.RemoteHost; end; procedure TForm2.ClientSocket1Disconnect(Send er: TObject; Socket: TCustomWinSocket); begin StatusBar1.Panels[0].Text:='Соединение закрыто'; end; procedure TForm2.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); begin Memo2.Lines.Add('Получен текст:'+Socket.ReceiveText); end; end. |
02.02.2007, 13:41 | #4 |
Кодер
Форумчанин
Регистрация: 27.01.2007
Сообщений: 271
|
Друг возможно ты используешь зарезирвированный порт в целях тестирования используй порт 6000.
|
04.02.2007, 15:51 | #5 |
Регистрация: 30.01.2007
Сообщений: 3
|
Попробовал использовать порт 6000 не помогло всё также
|
04.02.2007, 19:38 | #6 |
Кодер
Форумчанин
Регистрация: 27.01.2007
Сообщений: 271
|
Да внатуре вчера попробовал через инет не работает. Ладно будем исправлять. Как сделаю выкину дему
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
COM-порт | daunito | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 7 | 15.01.2009 18:50 |
порт ps/2 | _Dmitry | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 01.10.2007 21:28 |
Открыть порт для подключения через proxy | Progs | Работа с сетью в Delphi | 18 | 05.07.2007 11:13 |
COM порт, или LPT... | _riddik | Общие вопросы Delphi | 1 | 08.06.2007 22:33 |
СОМ порт | SERG1980 | Общие вопросы Delphi | 3 | 17.05.2007 08:06 |