Write directly to COM1 in Windows 2000

[Gigatech]

Hi,
I'm a Delphi 6 user. Do you know how to write directly to COM1 (to open a cash drawer) in Windows 2000 or NT ?

Thanks

 

[SamC]

//---------------------------------------------------------------------------
void __fastcall TForm1::OpenTray()
{
//Kasse auf Knopfdruck öffnen
unsigned long res=0;
unsigned int i =0;
HANDLE com=CreateFile("COM1",GENERIC_WRITE,0,NULL,OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,0);
if (com>0)
{
WriteFile(com,"XXXXXXXXXXXXXXXXXXXX",20,&res,NULL);
CloseHandle(com);
}
}

Hier ist ein CBuilder-Beispiel.

Gruß, SamC

 

[sggaunt]

If you dont want any 'C' in your Delphi program (who would?)
you can find lots of (FREE) third party components that give you access to the COMM ports. Browse for Delphi Components.

I use one Called 'CPORT Lib' which works well with the operating systems you want to use.

Steve