4 respuestas en este tema

[FGarcia]

Saludos antes que nada! 

Estoy usando Windows 7 Pro 64 Bits, CodeTyphon 4.70 IDE 32.

Llevo tiempo fuera de Lazarus y ahora que lo retome tengo algunos problemas con un componente para la comunicación serial (CPortLib para Lazarus), les cuento que he instalado correctamente el componente en Lazarus, sin embargo cuando hago uso del formulario de configuración de baudios, puerto y demás me envía un error;

[Window Title]
Error

[Content]
El proyecto CapturaPeso ha lanzado una excepción de la clase 'External: SIGSEGV'.

En archivo 'CPortCtl.pas' en linea 801

[Aceptar]

Cuyo codigo es:

delphi

// set ComPort property
procedure TComComboBox.SetComPort(const Value: TCustomComPort);
begin
  if FComSelect.ComPort <> Value then  [b]//Aqui se genera el ERROR: "FComSelect no tiene un componente llamado ComPort"[/b]
  begin
    FComSelect.ComPort := Value;
    if FComSelect.ComPort <> nil then
    begin
      FComSelect.ComPort.FreeNotification(Self);
      // transfer settings from ComPort to this control
      UpdateSettings;
    end;
  end;
end;

He revisado el codigo del ComComboBox y encuentro:

delphi

// combo control for selecting port properties
  TComComboBox = class(TCustomComboBox)
  private
   [b] FComSelect: TComSelect;[/b][b] // "FComSelect es de la clase TComSelect"[/b]
    function GetAutoApply: Boolean;
    function GetComPort: TCustomComPort;
    function GetComProperty: TComProperty;
    function GetText: string;
    procedure SetAutoApply(const Value: Boolean);
    procedure SetComPort(const Value: TCustomComPort);
    procedure SetComProperty(const Value: TComProperty);
    procedure SetText(const Value: string);
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
    procedure Change; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure ApplySettings;
    procedure UpdateSettings;
  published
    property ComPort: TCustomComPort read GetComPort write SetComPort;
    property ComProperty: TComProperty read GetComProperty write SetComProperty default cpNone;
    property AutoApply: Boolean read GetAutoApply write SetAutoApply default False;
    property Text: string read GetText write SetText;
    property Style;
    property Color;
    //property Ctl3D;
    property DragCursor;
    property DragMode;
    property DropDownCount;
    property Enabled;
    property Font;
    //property ImeMode;
    //property ImeName;
    property ItemHeight;
    property ItemIndex;
    property ParentColor;
    //property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Visible;
    property Anchors;
    //property BiDiMode;
    property CharCase;
    property Constraints;
    property DragKind;
    //property ParentBiDiMode;
    property OnChange;
    property OnClick;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnDrawItem;
    property OnDropDown;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnKeyDown;
    property OnKeyPress;
    property OnKeyUp;
    property OnMeasureItem;
    property OnStartDrag;
    property OnEndDock;
    property OnStartDock;
    property OnContextPopup;
  end;

Y el TComSelect:

delphi

// assistant class for TComComboBox, TComRadioGroup controls
  TComSelect = class
  private
    FPort: TPort;
    FBaudRate: TBaudRate;
    FDataBits: TDataBits;
    FStopBits: TStopBits;
    FParity: TParityBits;
    FFlowControl: TFlowControl;
    FItems: TStrings;
    FComProperty: TComProperty;
    FComPort: TCustomComPort;  [b]//"Aqui se declara FComPort para la clase TComSelect"[/b]
    FAutoApply: Boolean;
  private
    procedure SetComProperty(const Value: TComProperty);
  public
    procedure SelectPort;
    procedure SelectBaudRate;
    procedure SelectParity;
    procedure SelectStopBits;
    procedure SelectDataBits;
    procedure SelectFlowControl;
    procedure Change(const Text: string);
    procedure UpdateSettings(var ItemIndex: Integer);
    procedure ApplySettings;
    property Items: TStrings read FItems write FItems;
    property ComProperty: TComProperty read FComProperty write SetComProperty;
    property ComPort: TCustomComPort read FComPort write FComPort; [b]//"Aqui escribimos en FComPort"[/b]
    property AutoApply: Boolean read FAutoApply write FAutoApply;
  end;

¿Que es lo que esta mal? llevo 3 días revisando esto y no encuentro el porque del error. El error se genera dentro y fuera del IDE.

Les agradezco el tiempo que puedan prestarme para esto.  

[poliburro]

mmmm seguí el código y tampoco le ví nada raro. Trataré de instalarme CoeThypon para probar.

[gerardoagraz]

Podrias poner exactamente el mensaje de error que te manda.

[FGarcia]

Este es el mensaje de error:

[Window Title]
Error

[Content]
El proyecto CapturaPeso ha lanzado una excepción de la clase 'External: SIGSEGV'.

En archivo 'CPortCtl.pas' en linea 801:
if FComSelect.ComPort <> Value then

[Aceptar]

Adjunto dos imagenes sobre la linea 801 y la linea 801:

delphi

// set ComPort property
procedure TComComboBox.SetComPort(const Value: TCustomComPort);  //TCustomComPort
begin
  if FComSelect.ComPort <> Value then  // esta es la linea 801
  begin
    FComSelect.ComPort := Value;
    if FComSelect.ComPort <> nil then
    begin
      FComSelect.ComPort.FreeNotification(Self);
      // transfer settings from ComPort to this control
      UpdateSettings;
    end;
  end;
end;   

Archivos adjuntos

•  4487_db6aa72988c17ff6e7d2cb9bd799c4a5b6e5e4b7.png   8,89KB   5 descargas
•  4489_4b42fd9fdbe2369a1847a86fac96b7d470f2f6a6.png   5,93KB   3 descargas

[Edson]

Si la línea "if FComSelect.ComPort <> Value then", es la primera de un método, podría ser que ese método no existe (no se ha compilado), porque el objeto  no se ha creado.

Es decir si tu método es:

procedure TComComboBox.SetComPort(const Value: TCustomComPort);  //TCustomComPort
begin
  if FComSelect.ComPort <> Value then  // esta es la linea 801
  begin
...
end; 

Y el error hace referencia a la línea:

if FComSelect.ComPort <> Value then  // esta es la linea 801

Entonces, puede que el objeto de tipo "TComComboBox", no se haya creado al momento de intentar llamar al método SetComPort().

Puede que hayas modificado la definición de algún "ComComboBox1" en el formuario (tal vez lo hayas sacado de  Published).

Al menos es lo que se me ocurre.