API BCB6短信收发程序问题

[swordwins]

遇到一个很奇怪的问题：当送出命令后只能收到手机回送的前一段字符，例如：发送
at+cgmi后，只收到"at+cgmi",后面就再也收不到东西，高人指点，是什么问题啊？

[FFSB]

BCB6有收发短信的API?
是用的第三方控件？

[swordwins]

我用的是API，OpenFile()、WriteFile()、ReadFile()

[我不懂电脑]

类似于tcp/ip是流式协议，需要不断的读，组合成命令。

[FFSB]

AT+cgmi看收到的结果是
AT+cgmi or AT+CGMI.
再做分析

[swordwins]

什么意思哦，AT+cgmi后面还有东西才对，应该有手机的生产厂家信息出来才对啊，光是AT+cgmi肯定不对啊

[kangji]

后面有回车换行符号，你是怎么接收 的？

[swordwins]

没作处理啊，要处理吗？我是用线程来接收的

[swordwins]

通讯协议应该怎么做呢？

[futulove]

有没有可能一次只能读出部分，要多读几次加起来才正确的。

[swordwins]

我是一直在读啊，只读出这些后面就没反映了。

[swordwins]

void __fastcall thRcvComChar::Execute()
{
DWORD beginTickCount;
SetName();
memset(RcvBuf, 0x00, sizeof(RcvBuf));
if(lpData==NULL)
{
MyInfoMemo->Lines->Add("共享内存区未建立或异常!");
ReturnValue=0;
Terminate();
}
beginTickCount=GetTickCount();
while((AnsiString(RcvBuf).Pos("OK")!=0)||(AnsiString(RcvBuf).Pos("ERROR")!=0)||Terminated==false)
{
//Sleep(250);
Synchronize(GetData);
if(GetTickCount()-beginTickCount>10*1000L) break;
}
if(AnsiString(RcvBuf).Pos("OK")!=0)
ReturnValue=1;
else if(AnsiString(RcvBuf).Pos("ERROR")!=0)
ReturnValue=-1;
else
{
ReturnValue=-2;
Terminate();
}
memset (lpData, 0x00, 10240);
memcpy (lpData, RcvBuf, 10240);
}
//---------------------------------------------------------------------------

void __fastcall thRcvComChar::GetData()
{
AnsiString tmpstr="";
DWORD nBytesRead,dwEvent,dwError;
COMSTAT cs;
if(DeviceHandle==INVALID_HANDLE_VALUE)
{
MyInfoMemo->Lines->Add("短信设备连接异常!");
ReturnValue=0;
Terminate();
}
if(ClearCommError(DeviceHandle, &dwError, &cs)==false)
{
MyInfoMemo->Lines->Add("ClearCommError() Error") ;
Terminate();
}
tmpstr="";
if(cs.cbInQue<1) return;
if(cs.cbInQue>10240)
{
PurgeComm(DeviceHandle, PURGE_RXCLEAR); //清除通讯端口数据
return;
}
tmpstr.SetLength(cs.cbInQue);
ReadFile(DeviceHandle, (void *)tmpstr.data(), cs.cbInQue, &nBytesRead, NULL);
if(nBytesRead>0)
{
strcat(RcvBuf, tmpstr.Trim().c_str());
MyInfoMemo->Lines->Add(RcvBuf);
}
}

[swordwins]

麻烦看看哪里有问题

[ljianq]

不是API的问题，而是通讯协议没有搞好

[kangji]

if(cs.cbInQue<1) return;
之前加一个GetCommState(DeviceHandle, &cs);

[swordwins]

为什么啊，有什么用啊

[swordwins]

怎么没有人响应啊，真是急死个人。

[kangji]

你的问题还没有解决吗？

[swordwins]

是啊。怎么都不行，收不完。寄怪得很

[swordwins]

DeviceHandle=CreateFile(DeviceName.c_str(),
GENERIC_READ|GENERIC_WRITE,
0,
NULL,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
NULL);
if(DeviceHandle==INVALID_HANDLE_VALUE)
{
Memo2->Lines->Add("打开串口"+DeviceName+"失败,请确认短信设备连接到该端口!");
return;
}
GetCommState(DeviceHandle, &MyDCB);
MyDCB.DCBlength = sizeof(DCB);
MyDCB.BaudRate=ComboBox_BaudRate->Text.ToInt();
MyDCB.ByteSize = 8;
MyDCB.StopBits = ONESTOPBIT ;
MyDCB.Parity = NOPARITY ;
if(!SetCommState(DeviceHandle, &MyDCB))
{
Memo2->Lines->Add("通讯端口"+DeviceName+"设置失败!");
return;
}

GetCommTimeouts(DeviceHandle,&OriginalTimeouts);
OriginalTimeouts.ReadIntervalTimeout=15;
OriginalTimeouts.ReadTotalTimeoutMultiplier=1;
OriginalTimeouts.ReadTotalTimeoutConstant=2500;
OriginalTimeouts.WriteTotalTimeoutMultiplier=1;
OriginalTimeouts.WriteTotalTimeoutConstant=250;
SetCommTimeouts(DeviceHandle,&OriginalTimeouts);
ReceiveQueue=32;
TransmitQueue=9;
SetupComm(DeviceHandle,1024*ReceiveQueue,1024*TransmitQueue);

[睿音]

ClearCommError(hComm,&dwError,&cs);
if (cs.cbInQue != 0)
{
Sleep(FTimeOut);
ClearCommError(hComm,&dwError,&cs);
ReadFile(hComm,RxBuff,cs.cbInQue,&nBytesRead,NULL);
...
}
用GetCommState也可以。
用途是获取cbInQue中的值。也就是串口缓冲区中的内容。