Help：C++Buildeder代码转Delphi，万分感谢 ( 积分: 50 )

void __fastcall TfrmMain::sbDownGoodsClick(TObject *Sender)
{
int nCount = 0;
unsigned char pszBuffer[65536];
unsigned char pszResult[128];
int nFieldLength[16];
AnsiString strData;
//首先提取list中的数据长度
int nGoodsAmount = lvList.Items.Count;
TIniFile *pIniFile;
AnsiString strFileName = editFile.Text;
AnsiString strListFile = ChangeFileExt( strFileName, ".DLF" );
pIniFile = new TIniFile( ChangeFileExt( strFileName, ".INI" ) );
//提取有多少字段
int nSector = pIniFile.ReadInteger( "Goods", "Amount", 1 );
for(int i=0;i<nSector;i++)
{
char pszTest[16];
sprintf(pszTest,&quot;%d&quot;,i);
nFieldLength = pIniFile.ReadInteger( &quot;Length&quot;, pszTest, 10 );
}
//提取条码索引字段
int nIndex = pIniFile.ReadInteger( &quot;Goods&quot;, &quot;Index&quot;, 0 );
//提取需要显示的字段
strData = pIniFile.ReadString( &quot;Goods&quot;, &quot;pos&quot;, &quot;0&quot; );
int nIndexPos = strData.Pos(IntToStr(nIndex));
if(nIndexPos)nIndexPos--;
char pszFieldList[16];
strcpy(pszFieldList,strData.c_str());
int nDownFieldList = strlen(pszFieldList);
delete pIniFile;
sbState.SimpleText = &quot;正在处理数据...&quot;;
//准备数据，准备下载 //首先要对数据按照要查找的索引进行排序 //读取文件进行下载,一次要读去所有的内容
char* pszDownloadList;
//提取文件长度
FILE* fp;
fp = fopen(strListFile.c_str(),&quot;r&quot;
long curpos, length;
curpos = ftell(fp);
fseek(fp, 0L, SEEK_END);
length = ftell(fp);
fseek(fp, curpos, SEEK_SET);
pszDownloadList = (char*)malloc(length*sizeof(char));
curpos = 0;
char pszTempList[256];
memset(pszTempList,0x00,256);
strcpy(pszDownloadList,&quot;&quot;
nCount = 0;
int nRecordLength;
while(fgets(pszTempList,256,fp))
{
nRecordLength = strlen(pszTempList);
curpos += nRecordLength;
pszTempList[nRecordLength-1] = 0x00;
strcat(pszDownloadList,pszTempList);
memset(pszTempList,0x00,256);
nCount++;
//if(0 == nCount%100)
{
sbState.SimpleText = &quot;正在处理数据...&quot; + IntToStr(nCount);
MSG msg;
whileeekMessage(&amp;msg,NULL,0,0,PM_REMOVE))DispatchMessage(&amp;msg);
}
}
nGoodsAmount = nCount;
length = strlen(pszDownloadList);
fclose(fp);
//发送物品库需要提供数目，长度等，备注：只下载显示字段
//命令头格式：单次下载的长度(2)+记录数(3)+标志字节(1)+记录长度(1)+字段长度(1)...
//备注：单次下载的长度为1024/2048/4096字节，记录数 商品库的数目
//标志字节的高半个字节表示按照那个索引来查找条码 原则上下载的第一个字段是条码
//低半个字节表示字段数目，记录数X记录长度是本次下载的所有商品库的字节
//记录长度=所有字段的长度之和
sbState.SimpleText = &quot;准备发送物品库&quot;;
//单次下载的长度
pszBuffer[0] = SSI_UNIT_SEND_LENGTH/256;
pszBuffer[1] = SSI_UNIT_SEND_LENGTH%256;
//商品数目
pszBuffer[2] = nGoodsAmount/(256*256);
pszBuffer[3] = nGoodsAmount/256;
pszBuffer[4] = nGoodsAmount%256;
//标志字节
pszBuffer[5] = nIndexPos<<4;
pszBuffer[5] += nDownFieldList;
//添加具体字段的长度
int nDownloadLength = 0;
for(int i=0;i<nDownFieldList;i++)
{
pszBuffer[7+i] = nFieldLength[pszFieldList-0x30];
nDownloadLength += nFieldLength[pszFieldList-0x30];
}
//字长度
pszBuffer[6] = nDownloadLength;
int nDownFlag = 1;
for(nCount=0;nCount<6;nCount++)
{
SHTP_PurgePort(m_hPortHandle,2);
SHTP_PutMessage(m_hPortHandle,SSI_GOOD_LIST,pszBuffer,7+nDownFieldList);
//等待接收下位机应答
if(SHTP_SUCC == SHTP_GetMessage(m_hPortHandle,pszResult,30))
{
sbState.SimpleText = &quot;正在发送物品库&quot;;
nDownFlag = 0;
break;
}
}
//开始连续发送数据
DWORD dwLength;
int nOffset;
sbState.SimpleText = &quot;开始发送商品信息数据...&quot;;
int nDown64KStep,nDownUnitStep;
nDown64KStep = length/65536;
for(nCount=0;nCount<nDown64KStep;nCount++)
{//开始下载64K数据
for(int i=0;i<64;i++)
{
nOffset = nCount*65536 + i*SSI_UNIT_SEND_LENGTH;
SHTP_PurgePort(m_hPortHandle,2);
WriteFile(m_hPortHandle,pszDownloadList+nOffset,SSI_UNIT_SEND_LENGTH,&amp;dwLength,NULL);
//需要确认一下才能发下一部分数据
if(SHTP_SUCC == SHTP_GetMessage(m_hPortHandle,pszResult,300))
{
sbState.SimpleText = IntToStr(nOffset/nDownloadLength+1);
MSG msg;
whileeekMessage(&amp;msg,NULL,0,0,PM_REMOVE))DispatchMessage(&amp;msg);
}
}
}
}

procedure TfrmMain.sbDownGoodsClick(Sender:TObject);
var
nCount:integer;
nGoodsAmount:integer;
pszBuffer:array[0..65536-1] of char;
pszResult:array[0..128-1] of char;
strData,strFileName,strListFile:string;
pIniFile:TIniFile;
nSector:integer;
i:integer;
pszTest:array[0..15] of char;
begin
nCount:=0;
nGoodsAmount:=lvList.Items.Count;
strFileName:=editFile.Text;
strListFile:=ChangeFileExt(strFileName,'.DLF');
pIniFile:=TINiFile.Create(ChangeFileExt(strFileName,'.INI'));
nSector:=pIniFile.ReadInteger('Goods','Amount',1);

for i:=0 to nSector-1 do
begin
pszTest:=Format('%d', );
nFieldLength:=pIniFile.ReadInteger('Length',pszTest,10);
end;
.......

end;

没有人完整回答？

通过另一种方式解决了，送分了