Member Avatar for KE50

Hello All,

I have been trying to send data to a pole display i.e. DigiPos WD202,

I am trying to use the following code but nothing appears on the display

Procedure CSPortWrite(PortID, PortData : string);
var
f: THandle;
NumberWritten : dword;
begin
NumberWritten := 0;
//assigns the stream to the printer port LPT1
f := CreateFile(PChar(PortID),GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
//write to printer
{-$1} writefile(f, PChar(PortData)^,Length(PortData),NumberWritten,nil) {+1$};
CloseHandle(f);
End;

and calling then CSPortwWrite()

CSPortWrite(PortID, trim(Frm_FMMain.EdSalesAmount.Text));

Please assist.

  • 1 Contributor
  • 1 Reply
  • 288 Views
  • 5 Days Discussion Span
  • Latest Post Latest Post by KE50
Member Avatar for KE50

Got the solution, which is getting a TComm Component which I used to send the control characters together with the text to be displayed.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.