ServerSocket 2 компонента.

[IliaIT]

описание.
возникла задача сделать удалённый доступ к ком портам из внешней программы. на пользовательской машине в приложении использую ClientSocket. на сервере запущенна программа со связкой ServerSocket = сом порт.
вопрос.
хочу добавить параллельный поток данных в пользовательскую программу. и передавать его через ClientSocket, и соответственно принимать ServerSocket на сервере. но возникла трудность дельфи говорит нельзя в одну программу вставить 2 ServerSocket , точнее их запустить на разные сокеты при 1 ip. как тут быть?

[Slym]

Можно запустить хоть 10 серверов... ты ошибочку покажи

код говно... глаза сломал

принято разделять логику и гуй, а у тебя все намешано

[IliaIT]

для особо одарённых. в дельфи 7 возникает исключение.

[IliaIT]

ага всё сам внимательно проглядел код нашёл ошибку. Можно закрывать тему .
(почти день искал где был неправ в коде.)

[Slym]

А про говнокод не обратил внимание?
не проще так работать?

procedure TForm1.FormCreate(Sender: TObject);
var
  IniFileName:string;
  IniFile:TIniFile;
begin
  IniFileName:=ExtractFilePath(Application.ExeName)+'cofig.ini';
  ComPort1.LoadSettings(stIniFile,IniFileName);
  ComPort2.LoadSettings(stIniFile,IniFileName);
  IniFile:=TIniFile.Create(IniFileName);
  try
    ServerSocket.Port:=IniFile.ReadInteger('Server1','Port',5468);
    ServerSocket2.Port:=IniFile.ReadInteger('Server2','Port',5469);
  finally
    IniFile.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  IniFileName:string;
  IniFile:TIniFile;
begin
  IniFileName:=ExtractFilePath(Application.ExeName)+'cofig.ini';
  ComPort1.StoreSettings(stIniFile,IniFileName);
  ComPort2.StoreSettings(stIniFile,IniFileName);
  IniFile:=TIniFile.Create(IniFileName);
  try
    IniFile.WriteInteger('Server1','Port',ServerSocket.Port);
    IniFile.WriteInteger('Server2','Port',ServerSocket2.Port);
  finally
    IniFile.Free;
  end;
end;

[IliaIT]

расскажи теперь как из программы поменять ip сервера и номер сокета. с применением твоего кода.
а просто Readln на LoadSettings выдет столько же. или в лучшем случае на 2 строчки короче. а на скорости это никак не отразиться критически. я ведь не 100 портов открываю.