🚀 go-pugleaf

hellow 
wil een programma schrijven in c builder
om een seriel communicatie te hebben

#include <vcl\vcl.h>
#pragma hdrstop
#include "Unit1.h"

#pragma link "TPort"
#pragma resource "*.dfm"
TForm1 *Form1;

int c,lengte,i,s,e=0;
char d[1000]="";
char ch;
int port1=0x2F8,a=0;
AnsiString naam;

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Port1->Output(port1 + 1, 0);
Port1->Output(port1 + 3, 0x80);
Port1->Output(port1 + 0, 0x03);
Port1->Output(port1 + 1, 0x00);
Port1->Output(port1 + 3, 0x03);
Port1->Output(port1 + 2, 0xC7);
Port1->Output(port1 + 4, 0x0B);

Timer1->Interval=10;
Timer1->Enabled=true;
Timer2->Interval=100;
Timer2->Enabled=false;

}

void __fastcall TForm1::Button1Click(TObject *Sender)
{ // bevel uitsturen
Timer2->Enabled=true;
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{ // inlezen
c=Port1->Input(port1+5);
if (c & 1)
{
ch=Port1->Input(port1);
strcat(d,&ch);
Memo1->Text=d;
} }

void __fastcall TForm1::Timer2Timer(TObject *Sender)
{ //uitsturen
naam=Edit2->Text;
lengte=Edit2->GetTextLen();
for(i=1;i<=lengte;i++){Port1->Output(port1,naam[i]);}
Port1->Output(port1,0x0A);
Timer2->Enabled=false;
}

het probleem is bij het inlezen da tie maar 17 karakters wil inlezen
en niks meer
ik werk met builder 1 en tport om te kunnen inlezen en uitsturen

als er mij iemand kan helpen aub

nodoubt