在线等待，请达人们帮帮忙～～～～ ( 积分: 100 )

请做过LED开发的达人帮帮忙，我现在的这个LED是CL2005的I型，根据厂商提供的 OCX文件我可以控制LED，但是当我把数据传上去显示的时候却是一块方块，显示不了内容，请问这个是什么问题??附源码：

procedure TfrmInfoSys.cxButton5Click(Sender: TObject);
var
blnOK : Boolean;
s : String;
p,sp : PChar;
begin
blnOK := False;
blnOK := ComInitial(1,38400,1000);
if not blnOK then
begin
ShowMessage('初始化端口失败，端口1已经被占用或其他原因');
Exit;
end;
ClearBank(1);
blnOK := SetLEDProperty(1,1,128,32,0,0);

if blnOK then
ShowMessage('ok')
else
ShowMessage('no');
//self.getData('1'); //获取1号Led要求显示信息
s :='abcdefg';
blnOK := ShowString(1,5,0,1,Integer(PChar(s))); //0:黑 1：红 2：绿 3：黄
// blnOK := ShowString(1,0,0,1,Integer(@s));
if blnOK then
ShowMessage('successful')
else
ShowMessage('failure');
// blnOK := SwitchToBank(1);
// if blnOK then
// ShowMessage('Switch')
// else
// ShowMessage('failSwitch');
end;

请做过LED开发的达人帮帮忙，我现在的这个LED是CL2005的I型，根据厂商提供的 OCX文件我可以控制LED，但是当我把数据传上去显示的时候却是一块方块，显示不了内容，请问这个是什么问题??附源码：

procedure TfrmInfoSys.cxButton5Click(Sender: TObject);
var
blnOK : Boolean;
s : String;
p,sp : PChar;
begin
blnOK := False;
blnOK := ComInitial(1,38400,1000);
if not blnOK then
begin
ShowMessage('初始化端口失败，端口1已经被占用或其他原因');
Exit;
end;
ClearBank(1);
blnOK := SetLEDProperty(1,1,128,32,0,0);

if blnOK then
ShowMessage('ok')
else
ShowMessage('no');
//self.getData('1'); //获取1号Led要求显示信息
s :='abcdefg';
blnOK := ShowString(1,5,0,1,Integer(PChar(s))); //0:黑 1：红 2：绿 3：黄
// blnOK := ShowString(1,0,0,1,Integer(@s));
if blnOK then
ShowMessage('successful')
else
ShowMessage('failure');
// blnOK := SwitchToBank(1);
// if blnOK then
// ShowMessage('Switch')
// else
// ShowMessage('failSwitch');
end;