Primero gracias por la respuesta, pero no encuentro eso, yo estoy usando un componenente que se ComPort, que esta instalado dentro de los componente y la libreria se llama CportLib. Esto es lo que hice yo, me funciona perfecto, solo que me envia ascii, pero haciendo la conversion yo a mano, con lo que me muestra en la tabla verifico que los datos son correctos los que se envian y los que recibo, solo que necesitaria recibir y enviar numeros enteros. Te paso lo que hice mira...
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CPort"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnOpenClick(TObject *Sender)
{
if (ComPort1->Connected)
ComPort1->Close();
else
ComPort1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnSettingClick(TObject *Sender)
{
ComPort1->ShowSetupDialog();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnSendClick(TObject *Sender)
{
AnsiString Str;
Str = Edit1->Text;
if (CheckBox1->Checked)
Str = Str + "\r\n";
ComPort1->WriteStr(Str);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComPort1AfterOpen(TObject *Sender)
{
btnOpen->Caption = "Close";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComPort1AfterClose(TObject *Sender)
{
btnOpen->Caption = "Open";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComPort1RxChar(TObject *Sender, int Count)
{
AnsiString Str;
ComPort1->ReadStr(Str, Count);
//ComPort1->Count;
//Memo1->Text = Memo1->Text + Str;
Edit2->Text =Edit2->Text + Str;
}
//--------------------------------------------
***********************************/*******************
Esta es la parte que tendria que modificar algo, para poder hacer que envie los numeros entero creo que habria que hacer una conversion o enviar de otea forma nose? eso es lo que no encuentro.
if (CheckBox1->Checked)
Str = Str + "\r\n";
ComPort1->WriteStr(Str); ???????????? ACA NO SE PODRA HACER ALGO????
|