难道真的无人问津？

Question

给段代码，你看看，gComID是穿口的句柄，这是向穿口写数据的
Function Send232Data(const SendStr:array of char;const SendLen:integer):integer;
var
  iSendNums: Cardinal;
begin  PurgeComm(gComID, PURGE_TXCLEAR or PURGE_RXCLEAR);  if not WriteFile(gComId,SendStr,SendLen,iSendNums,nil) then begin
    Result := -1;
    exit;
  end;
  if (int(iSendNums) <> SendLen) then begin
    Result := -2;
    exit;
  end;
  Result := iSendNums;
end;

Answer 1

没有错，就是没有出来值，我是向客显输出一个数，就是没有值：）谢谢！
  我的mail:[email protected]

Answer 2

我想是不是我用：filewrite()错了!

Answer 3

我不太清楚你做的客显是什么东西，我做过一些和串口设备通讯的东西，一般都是打印机、读卡器之类的，首先要打开串口（CREATEFILE），并且DCB的设置要和设备的要求一致，比如要求N，8，1。然后用WRITEFILE向串口写数据，用READFILE从串口读数据。
向串口写数据很容易的，但数据的格式要遵循设备的通讯协议，比如我发#27#13向一台串口打印机，对打印机而言，这代表换行，一般，相关设备有提供指令集的。

Answer 4

哦，真的很感谢！writefile(hcom,'100',cboutnum,writeNumber,lpol);中的‘100’里，我加入我要输出的‘数据’了，是吧.
  我改了很多次了，不知道是否对。
  客显，是超市为顾客显示价格用的，超市大都用的。
  再次感谢你！我再试试！

Answer 5

dy2712(大头) ，我想奢望一下，能不能给我一个关于通讯的例子。如果方便的话，我挺急的，我的mail:      [email protected]