Всех категорически приветствую. Сразу скажу что по своему вопросу целую неделю рою инет, книги и мнения знакомых. НИЧЕГО!
Первоочередная цель вот о чём: Необходимо создать соединение ПО ИНТЕРНЕТУ по средствам компонентов idTCP(Server/Client) с банальной возможностью передачи хотя бы строк!
есть следующие наработки - небольшое изменение того что есть в DRKB:
СЕРВЕР
| Код |
{#######################################################################################################}
procedure TForm1.N2Click(Sender: TObject); // запуск серва
begin
Server.Active := true;
protocol.Lines.Add('===============Запуск Серва================');
end;
{#######################################################################################################}
procedure TForm1.N3Click(Sender: TObject); // отпуск
begin
Server.Active := false;
protocol.Lines.Add('===============Отпуск Серва================');
end;
{#######################################################################################################}
procedure TForm1.ServerConnect(AThread: TIdPeerThread);
var
NewClient: PClient;
begin
GetMem(NewClient, SizeOf(TClient));
NewClient.DNS := AThread.Connection.LocalName;
NewClient.Connected := Now;
NewClient.LastAction := NewClient.Connected;
NewClient.Thread := AThread;
AThread.Data:=TObject(NewClient);
try
//Clients.LockList.Add(NewClient); И ДЛЯ ЧЕГО ЭТО ТАК И НЕПОНЯТНО... И БЕЗ ЭТОГО ВСЁ НОРМ
finally
//Clients.UnlockList;
end;
Protocol.Lines.Add(TimeToStr(Time)+' Соединение компьютера: "'+NewClient.DNS+'"');
end;
{#######################################################################################################}
procedure TForm1.ServerDisconnect(AThread: TIdPeerThread);
var
ActClient: PClient;
ConnN: integer;
begin
ActClient := PClient(AThread.Data);
Protocol.Lines.Add (TimeToStr(Time)+' Отсоединение компьютера: "'+ActClient^.DNS+'"');
try
//Clients.LockList.Remove(ActClient); ВОТ ИЗ-ЗА ЭТОГО ВАЩЕ ОШИБКА В ПОТОКАХ ПРИ ОТКЛЮЧЕНИИ ПРОИСХОДИТ
finally
//Clients.UnlockList;
end;
FreeMem(ActClient);
AThread.Data := nil;
end;
{#######################################################################################################}
procedure TForm1.ServerExecute(AThread: TIdPeerThread);
const
cmRegisterComp = 'REGISTER';
cmUnRegisterComp = 'UNREGISTER';
var
ActClient, RecClient: PClient;
CommBlock, NewCommBlock: TCommBlock;
RecThread: TIdPeerThread;
i, ConnN: Integer;
itmp: integer;
begin
if not AThread.Terminated and AThread.Connection.Connected then
begin
AThread.Connection.ReadBuffer (CommBlock, SizeOf (CommBlock));
ActClient := PClient(AThread.Data);
ActClient.LastAction := Now; // update the time of last action
// Регистрация компьютера
if (UpperCase(CommBlock.Command) = UpperCase(cmRegisterComp)) then
begin
Protocol.Lines.Add(' Регистрация компьютера: '+UpperCase(CommBlock.ComputerName));
meConnected.Lines.Add(UpperCase(CommBlock.ComputerName));
//RefreshConnected;
//RefreshConnectedComps;
//RefreshGolosProcess; // ??????????????
// AThread.Connection.WriteBuffer (NewCommBlock, SizeOf (NewCommBlock), true); // and there it goes...
end
// Удаление компьютера
else if (UpperCase(CommBlock.Command) = UpperCase(cmUnRegisterComp)) then
begin
Protocol.Lines.Add(' Удаление компьютера: '+UpperCase(CommBlock.ComputerName));
//ConnN:=FindConnComp(UpperCase(CommBlock.ComputerName)); // ?????
if ConnN<>-1 then meConnected.Lines.Delete(ConnN);
//RefreshConnected;
//RefreshConnectedComps;
//RefreshGolosProcess;
// AThread.Connection.WriteBuffer (NewCommBlock, SizeOf (NewCommBlock), true); // and there it goes...
end
// Регистрация ответов
else
begin // unknown command given
Protocol.Lines.Add (TimeToStr(Time)+' Unknown command from "'+CommBlock.MyUserName+'": '+CommBlock.Command);
NewCommBlock.Command := 'DIALOG'; // the message should popup on the client's screen
NewCommBlock.MyUserName := '[Server]'; // the server's username
NewCommBlock.Msg := 'I dont understand your command: "'+CommBlock.Command+'"'; // the message to show
NewCommBlock.ReceiverName := '[return-to-sender]'; // unnecessary
AThread.Connection.WriteBuffer (NewCommBlock, SizeOf (NewCommBlock), true); // and there it goes...
end;
end;
end;
|
КЛИЕНТ
| Код |
{##############################################################################}
procedure TForm1.N2Click(Sender: TObject);// коннект
var
ClientHandleThread : TClientHandleThread;
begin
try
M1.Lines.Add('===Подключение к серверу===');
//Client.Host:=DBInfo.IBaseServerName; ЧТО ЗА ПЕРЕМЕННАЯ DBInfo.IBaseServerName!?
Client.Connect(10000); // in Indy < 8.1 leave the parameter away
ClientHandleThread := TClientHandleThread.Create(True);
ClientHandleThread.Cli:=Client;
//ClientHandleThread.EventMest:=FEventMess; ЧТО ЗА ПЕРЕМЕННАЯ FEventMess
ClientHandleThread.Str:=M1.Lines;
ClientHandleThread.FreeOnTerminate:=True;
ClientHandleThread.Resume;
//RegComp;
except
on E: Exception do MessageDlg ('Ошибка подключения:'+#13+E.Message, mtError, [mbOk], 0);
end;
end;
{##############################################################################}
procedure TForm1.N3Click(Sender: TObject);// дисконнект
begin
try
M1.Lines.Add('===Disconnection process===');
//Client.Host := EditHost.Text; это я вводил айпи в едит
if client.Connected then
begin
Client.Disconnect;
M1.Lines.Add('===Client its Disconnected===');
end;
except
on E: Exception do MessageDlg('Ошибка подключения: '+E.Message, mtError, [mbOk], 0);
end;
end;
{##############################################################################}
procedure TForm1.N5Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.E1KeyPress(Sender: TObject; var Key: Char);
var
CommBlock :TCommBlock;
st1:string[100];
begin
if (E1.Text<>'')and(key=#13)and(length(E1.text)<100) then
begin
CommBlock.Command:=Uppercase('message');
CommBlock.MyUserName:=Client.LocalName;
CommBlock.Msg:=E1.Text;
CommBlock.ReceiverName:=E1.Text;
CommBlock.ComputerName:=Uppercase(Client.LocalName);
//Client.WriteBuffer(CommBlock, SizeOf(CommBlock), true);
st1:=E1.Text;
Client.WriteBuffer(st1, SizeOf(st1), true);
E1.Text:='';
end;
end;
|
Это такой убогий пример кстати,
в некоторых местах у кода отсутствуют места с var и началом процедуры вообщем,
так же ненаписано, что нужно создать такой тип и запись, пришлось самому догадываться:
| Код |
type
PClient = ^TClient;
{RECORDS}
TClient = record
DNS :String[20]; { Hostname }
PeerIP :string[15]; { IP клиента }
TakeShot :boolean;
Connected, { Time of connect }
LastAction :TDateTime; { время последней активности }
Thread :Pointer; { Pointer на поток }
end;
|
Потом так и остались неизвестными строки которые я прокомментил БОЛЬШИМИ БУКВАМИ 
вообщем кое как добился чтобы этот пример работал, но он работает только В СЕТИ! и теперь вопрос на миллион долларов -
что нужно доделать чтобы это всё чудо, которое мне нравится(из-за потоков и передачи переменной-записи через буфер) РАБОТАЛО ПО ИНТЕРНЕТУ! именно: какой айпи куда вписывать(серверу/клиенту)? есть мнение что нужно клиенту прописывать внешний айпи сервера, но когда я так делаю со своим примером, то клиент висне, как буд-то пакет не доходит до сервера. В курсе о жизни пакета - его первый байт, может его где-то в параметрах компонентов прописать, чтобы он был не 1, как требуется для локалки, а больше...
Особенности подключения:
Хочу для начала протестировать это всё с сервером на моём компе, у меня АДСЛ, внешний айпи могу узнать легко и сказать тому у кого будет клиент - моему знакомому, он введёт куда надо и законнектится ко мне. Вообщем так я и тестил все эти неудачные попытки((.
А потом уже перемещу серв на статичный айпи(сразу немогу потому что нужны деньги) и всё такое, вообщем мне нужно сначало всё протестить.
Очень нужна помощь в этом вопросе, я уже незнаю что делать! у меня из-за этого ступора вся работа встала!
После того как разъяснится мой случай, то настаиваю о добавлении получившегося живого примера в DRKB. |
(ну в письме вы же указываете обратный адрес куда слать ответ), так вот если указать 0 то операционка сама вам выдаст произвольный порт для обратного потока данных сервер->клиент (не время TCP-IP сессии)