Olá pessoal!
Eu conferi todas informações:
1 - Lib SSL, ok
2 - {$IFDEF UNIX}
cthreads,
{$ENDIF} ok
3 - Versão do Indy do Windows e do Linux foram instaladas diretamente do repositório online do Lazarus ambos na mesma versão, ok
Mesmo com estes teste, ainda não funcionou.
unit TelaSockServer;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
IdTCPServer, IdCustomTCPServer, IdContext;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
IdTCPServer1: TIdTCPServer;
procedure Button1Click(Sender: TObject);
procedure IdTCPServer1Execute(AContext: TIdContext);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
v_comando_recebido: String;
v_mensagem : string;
begin
v_comando_recebido := AContext.Connection.Socket.ReadLn;
v_mensagem := 'Certifico o recebimento do comando: ' + v_comando_recebido;
AContext.Connection.Socket.WriteLn(v_mensagem);
AContext.Connection.Disconnect;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IdTCPServer1.Active then
begin
IdTCPServer1.Active := false;
end else
begin
IdTCPServer1.Active := true;
end;
end;
end.
O meu código é bem simples. Defini no componente a porta 8080 e tentei ativar, mais sem sucesso!
O que será que estou fazendo de errado?