Mi primer programita en Delphi

[JoseFco]

Hola amigos.

Que tiene este codigo mal?

Código Delphi [-]
procedure TForm1.FormCreate( Sender: TObject );
begin
EnumPorts( cbPorts.Items );
if cbPorts.Items.Count > 0 then
cbPorts.ItemIndex := 0; // show first available port

end;

Un Saludo y Feliz Año 2008.

[[egostar]]

Empezado por JoseFco

Mi abuela decia que lo que no funciona se tira a la basura y eso es lo que hare con este programita

Instale el Package de CPortLib y me hace falta una ayudadita.
Quiero usar dos componentes TComled uno que trabajara cuando el puerto este abierto y el otro cuando no encuentre respuestas del microcontrolador,quiero que me de un error.Se puede hacer esto?

Bueno, si vas a usar un componente para leer el puerto serial yo te recomiendo el Async Pro.

Para verificar el estado de las comunicaciones, podriamos "jugar" con las señales DTR y DSR en los TComLed para verificar si el estado de la señal está lista para aceptar datos.

Empezado por JoseFco

Hola amigos.

Que tiene este codigo mal?

No se si EnumPorts sea una función del mismo componente CPortLib, si es así creo que deberia ser de esta forma:

Código Delphi [-]
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  EnumComPorts(cbPorts.Items);
  if cbPorts.Items.Count > 0 then
     cbPorts.ItemIndex := 0; // show first available port
end;

Te sugiero que trates de comentarnos el error que te muestra para poder ayudarte mejor.

Salud OS

[JoseFco]

Saludos egostar.

Creo que EnumPorts es un API.No creo que sea parte de TComPort.
El codigo es asi como lo pucistes, lo he mirado en tres diferentes programas y esta exactamente asi escrito.Tengo que estudiar el EnumPorts un poco mas profundo.Por el momento solo se que su funcionamiento es chequear los puertos disponibles y ponerlos en un formulario.
Tengo una preguntica. Cuando ponemos.

Código Delphi [-]
uses
Windows,Messages,SysUtils,Classes.ComPort;

Yo no tengo ComPort, solo me deja poner en ese lugar CPorTLib.de lo contrario me da un error al copilar algo.Yo tengo Delphi 7, es esto normal o al instalar esta libreria lo configure mal?

Gracias.

[[FGarcia]]

Cuando tu colocas un componente de tipo ComPort automaticamente te aparece CPort en la Uses de tu Unit. Si lo haces todo por codigo debes añadirla "a mano"

Código Delphi [-]
uses
  SysUtils, Classes, CPort, IniFiles, ActnList, Dialogs, StrUtils;

[[egostar]]

Empezado por JoseFco

Saludos egostar.

Creo que EnumPorts es un API.No creo que sea parte de TComPort.
El codigo es asi como lo pucistes, lo he mirado en tres diferentes programas y esta exactamente asi escrito.Tengo que estudiar el EnumPorts un poco mas profundo.Por el momento solo se que su funcionamiento es chequear los puertos disponibles y ponerlos en un formulario.

Yo uso Delphi4 y TurboDelphi for win32 y no encuentro ninguna referencia a esa función EnumPorts, investigando en internet encontré que esta función forma parte de cWindows.pas de la unidad Delphi Fundamentals la cual se encuentra disponible en sourceforge.net.

Puede ser que me equivoque y en ese caso que alguien me corrija por favor.

Como te comentaba yo uso los componentes de Apro y me han funcionado de maravilla, de hecho el sector donde yo me manejo es en la de crear interfaces seriales para comunicarme con PBX (centrales telefonicas, conmutadores) y a otros dispositivos a través de puertos seriales y los uso frecuentemente.

Salud OS

[[FGarcia]]

Solo por no dejar el hilo inconcluso existe otros componentes llamados TComPort uno de ellos esta aqui y es freeware tambien.

[JoseFco]

Hola egostar.
El famoso EnumPorts es un componente de otro TComPort, diferente al que tenia yo instalado. El de Dejan Crnila no trae este componente.Encontramos otro TComPort, que si tiene el EnumPorts.

Este es el url.

http://users.pandora.be/dirk.claessens2/software.htm

Tiene otras cosas mas que no tiene el de Dejan Crnila. Por ejemplo:
procedure ComPort1ReceiveCallBack(Data:String);

Es cosa de seguir investigando.
PD: Se llaman igual los dos. (TComPort)