急求助!!delphi7从SAP取数据(通过RFC接口),中文数据被自动截断(附源代码)(200)

  • 主题发起人 主题发起人 kfp
  • 开始时间 开始时间
K

kfp

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi7 取SAP中文地址数据,数据自动被截断,困惑两天了还没找到解决方案,用JAVA开发程序取数据就没有问题,难道是Delphi 变体变量(variant)存在的问题?请各位大虾指教,源代码如下,红色的那一行为被截断的变量值!谢谢了===================================================library PCZMIB07;{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. }uses SysUtils, System, Classes, SAPLogonCtrl_TLB, SAPFunctionsOCX_TLB, SAPBAPIControlLib_TLB, StdCtrls, forms, DBGrids, DB, ADODB, inifiles, ComObj;var Connection,Table,Table2,Table3,Table4,Funct : variant; r,iCount,iCount2,iCount3,iCount4: integer; saplogin: TSAPLogoncontrol; fun: TSAPFunctions; adoqTemp: TADOQuery; ADOConnection1: TADOConnection; ins1,ins2,ins3,ins4,sSQL,sSQL2,sSQL3,sSQL4,ATable,ATable2,ATable3,ATable4 : string; h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15 : string; h16,h17,h18,h19,h20,h21,h22,h23,h24,h25,h26,h27,h28,h29,h30: string; s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12 : string; bill:Boolean;function PCDZMIB07(order,tablename,user,password,DBname,IPaddress: string): Boolean;begin bill:= false; //创建数据库连接 ADOConnection1 := TADOConnection.Create(nil); adoqTemp := TADOQuery.Create(nil); ADOConnection1.Connected:= false; ADOConnection1.ConnectionString:= ' Provider=SQLOLEDB.1; Network Library=dbmssocn; '+ ' Password='+password+';Persist Security Info=True;User ID='+user+'; '+ ' Initial Catalog='+DBname+';Data Source='+IPaddress+'; ' + ' Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096; ' + ' Workstation ID='+IPaddress+';Use Encryption for Data=False; ' + ' Tag with column collation when possible=False '; ADOConnection1.LoginPrompt:= false; ADOConnection1.Connected:= true; adoqTemp.Connection:=ADOConnection1; //表头 ATable := '##PCDZMIB07Bill' + tablename; sSQL := 'if exists(select * from tempdb..sysobjects where '+ 'substring(name,1,len('''+ATable+'''))='''+ATable+''' '+ 'and type = ''U'') drop table ' + ATable; adoqTemp.Close; adoqTemp.SQL.Clear; adoqTemp.SQL.Add(sSQL); adoqTemp.ExecSQL; sSQL := 'create Table '+ATable+'(ITF_ConsignmentBillNo varchar(20),ITF_CredenceTime varchar(20),ITF_MatureTime varchar(20),'+ 'ITF_OrderFormTime varchar(20),ITF_ConsignmentTime varchar(20),ITF_PlanReachDate varchar(20),ITF_Country varchar(20),'+ 'ITF_FilialeCode varchar(20),ITF_FilialeName varchar(100),ITF_Street1 varchar(100),ITF_Street2 varchar(100),' + 'ITF_LinkMan varchar(20),ITF_Tel varchar(20),ITF_Extension varchar(20),ITF_TrafficModeCode varchar(20),'+ 'ITF_TrafficModeDesc varchar(100),ITF_ArriveHarbor varchar(100),ITF_CarryHarbor varchar(100),ITF_TradeMode varchar(100),'+ 'ITF_TradeAddr varchar(100),ITF_Text varchar(600),ITF_MatureNo varchar(10),ITF_PayCode varchar(4),'+ 'ITF_PayTextEN varchar(60),ITF_TrafficModeDescEN varchar(100),ITF_PayText varchar(60),ITF_TradeAddrEN varchar(100),'+ 'ITF_CarryHarborDesc varchar(100),ITF_MatureNo2 varchar(500),ITF_TradeMode2 varchar(300)) '; adoqTemp.Close; adoqTemp.SQL.Clear; adoqTemp.SQL.Add(sSQL); adoqTemp.ExecSQL; //发货单明细 ATable2 := '##PCDZMIB07Billlist' + tablename; sSQL2 := 'if exists(select * from tempdb..sysobjects where '+ 'substring(name,1,len('''+ATable2+'''))='''+ATable2+''' '+ 'and type = ''U'') drop table ' + ATable2; adoqTemp.Close; adoqTemp.SQL.Clear; adoqTemp.SQL.Add(sSQL2); adoqTemp.ExecSQL; sSQL2 := 'create Table '+ATable2+'(ITF_ConsignmentBillNo varchar(20),ITF_ConsignmentItemID varchar(10),ITF_WorkBillNo varchar(10),'+ 'ITF_WorkBillItem varchar(20),ITF_ProduceFlag varchar(4),ITF_MaterielCode varchar(18),'+ 'ITF_MaterielDesc varchar(100),ITF_MaterielNum varchar(20),ITF_EntryName varchar(200),'+ 'ITF_IdentifyCode varchar(60),ITF_EngineModel varchar(60),ITF_MaterielEngDesc varchar(200)) '; adoqTemp.Close; adoqTemp.SQL.Clear; adoqTemp.SQL.Add(sSQL2); adoqTemp.ExecSQL; //合作伙伴 ATable3 := '##PCDZMIB07BillPartner' + tablename; sSQL3 := 'if exists(select * from tempdb..sysobjects where '+ 'substring(name,1,len('''+ATable3+'''))='''+ATable3+''' '+ 'and type = ''U'') drop table ' + ATable3; adoqTemp.Close; adoqTemp.SQL.Clear; adoqTemp.SQL.Add(sSQL3); adoqTemp.ExecSQL; sSQL3 := 'create Table '+ATable3+'(ITF_ConsignmentBillNo varchar(20),ITF_FellowType varchar(10),ITF_Fellow varchar(10),'+ 'ITF_Client1 varchar(100),ITF_Client2 varchar(100),ITF_Street1 varchar(100),'+ 'ITF_Street2 varchar(100),ITF_Linkman varchar(70),ITF_Tel varchar(40),'+ 'ITF_Extension varchar(20),ITF_Fax varchar(30),ITF_Street3 varchar(100)) '; adoqTemp.Close; adoqTemp.SQL.Clear; adoqTemp.SQL.Add(sSQL3); adoqTemp.ExecSQL; { //发货单英文特性 ATable4 := '##PCDZMIB07BillEn' + tablename; sSQL4 := 'if exists(select * from tempdb..sysobjects where '+ 'substring(name,1,len('''+ATable4+'''))='''+ATable4+''' '+ 'and type = ''U'') drop table ' + ATable4; adoqTemp.Close; adoqTemp.SQL.Clear; adoqTemp.SQL.Add(sSQL4); adoqTemp.ExecSQL; sSQL4 := 'create Table '+ATable4+'(ITF_Consignment varchar(10),ITF_ConsignmentObj varchar(6),ITF_ConsignmentTxt varchar(60)) '; adoqTemp.Close; adoqTemp.SQL.Clear; adoqTemp.SQL.Add(sSQL4); adoqTemp.ExecSQL; } //SAP连接 saplogin := TSAPLogoncontrol.Create(nil); fun:= TSAPFunctions.Create(nil); Connection := saplogin.NewConnection; Connection.User := ''; Connection.System := ''; Connection.Client := ''; //Connection.ApplicationServer := ''; Connection.ApplicationServer := ''; Connection.SystemNumber := '01'; Connection.Password := '' Connection.Language := '' ; Connection.CodePage := ''; saplogin.Enabled := false; if Connection.LogOn(0,true) = false then begin //Application.MessageBox('连接不上SAP,请检查参数是否设置正确!','提示',MB_OK); fun.autologon := false; fun.free; saplogin.free; exit; end; fun.Connection := connection; Funct := fun.add('ZMIB07'); //函数名称 Funct.exports('I_VBELN').value := '00'+ trim(order); if not Funct.call then begin end else begin Table := Funct.tables.item('T_LIKP'); //发货单表头 Table2 := Funct.tables.item('T_LIPS'); //发货单明细 Table3 := Funct.tables.item('T_VBPK'); //合作伙伴 // Table4 := Funct.tables.item('T_ATWTB'); //英文特性 iCount := Table.rowcount; iCount2 := Table2.rowcount; iCount3 := Table3.rowcount; //iCount4 := Table4.rowcount; //发货单表头 for r := 1 to iCount do begin h1 := Table.value(r,'VBELN'); h2 := Table.value(r,'BLDAT'); h3 := Table.value(r,'GUEEN'); h4 := Table.value(r,'AUDAT'); h5 := Table.value(r,'WADAT_IST'); h6 := Table.value(r,'LFDAT'); h7 := Table.value(r,'VKBUR'); h8 := Table.value(r,'ZVKBUR'); h9 := Table.value(r,'BEZEI'); // h10 := Table.value(r,'STRAS'); h10 := stringreplace(Table.value(r,'STRAS'),'''','''''',[rfReplaceAll]); //h11 := Table.value(r,'STR_SUPPL1'); h11 := stringreplace(Table.value(r,'STR_SUPPL1'),'''','''''',[rfReplaceAll]); h12 := Table.value(r,'NAMELX'); h13 := Table.value(r,'TEL_NUMBER'); h14 := ''; h15 := Table.value(r,'VSART'); h16 := Table.value(r,'VBEZEI'); h17 := Table.value(r,'BOLNR'); h18 := Table.value(r,'ROUTE'); h19 := Table.value(r,'INCO1'); //h20 := Table.value(r,'INCO2'); h20 := stringreplace(Table.value(r,'INCO2'),'''','''''',[rfReplaceAll]); //h21 := Table.value(r,'ZS02'); h21 := stringreplace(Table.value(r,'ZS02'),'''','''''',[rfReplaceAll]); while Pos('"', h21) > 0 do begin h21 := StringReplace(h21, '"', '“', []); end; h22 := Table.value(r,'VBLNBG'); h23 := Table.value(r,'ZTERM'); h24 := Table.value(r,'VTEXT'); h25 := Table.value(r,'EBEZEI'); h26 := Table.value(r,'HTVEXT'); //h27 := Table.value(r,'EINCO2'); h27 := stringreplace(Table.value(r,'EINCO2'),'''','''''',[rfReplaceAll]); h28 := Table.value(r,'RBEZEI'); h29 := Table.value(r,'VBELN_VF'); h30 := Table.value(r,'ZINCO1'); ins1:= 'INSERT INTO '+ATable+'(ITF_ConsignmentBillNo,ITF_CredenceTime,ITF_MatureTime,ITF_OrderFormTime,ITF_ConsignmentTime' + ',ITF_PlanReachDate,ITF_Country,ITF_FilialeCode,ITF_FilialeName,ITF_Street1,ITF_Street2,ITF_LinkMan,ITF_Tel,ITF_Extension,' + 'ITF_TrafficModeCode,ITF_TrafficModeDesc,ITF_ArriveHarbor,ITF_CarryHarbor,ITF_TradeMode,ITF_TradeAddr,ITF_Text,ITF_MatureNo,' + 'ITF_PayCode,ITF_PayTextEN,ITF_TrafficModeDescEN,ITF_PayText,ITF_TradeAddrEN,ITF_CarryHarborDesc,ITF_MatureNo2,ITF_TradeMode2)' + ' VALUES ('''+h1+''','''+h2+''','''+h3+''','''+h4+''','''+h5+''','''+h6+''','''+h7+''','+ ' '''+h8+''','''+h9+''' ,'''+h10+''','''+h11+''','''+h12+''','''+h13+''','''+h14+''','''+h15+''','+ ' '''+h16+''','''+h17+''' ,'''+h18+''','''+h19+''','''+h20+''','''+h21+''','''+h22+''','''+h23+''','+ ' '''+h24+''','''+h25+''','''+h26+''','''+h27+''','''+h28+''','''+h29+''','''+h30+''') '; adoqTemp.Close; adoqTemp.SQL.Clear; adoqTemp.SQL.Add(ins1); adoqTemp.ExecSQL; end; //发货单明细表 for r := 1 to iCount2 do begin s1 := Table2.value(r,'VBELN'); s2 := Table2.value(r,'POSNR'); s3 := Table2.value(r,'VGBEL'); s4 := Table2.value(r,'VGPOS'); s5 := Table2.value(r,'SOBKZ'); s6 := Table2.value(r,'MATNR'); //s7 := Table2.value(r,'ARKTX'); s7 :=stringreplace(Table2.value(r,'ARKTX'),'''','''''',[rfReplaceAll]); s8 := Table2.value(r,'LFIMG'); s9 := Table2.value(r,'DESHG'); s10 := Table2.value(r,'TZ06'); s11 := Table2.value(r,'ZMODEL'); //s12 := Table2.value(r,'EMAKTX'); s12 := stringreplace(Table2.value(r,'EMAKTX'),'''','''''',[rfReplaceAll]); while Pos('"', s7) > 0 do begin s7 := StringReplace(s7, '"', '“', []); end; while Pos('"', s12) > 0 do begin s12 := StringReplace(s12, '"', '“', []); end; ins2 := 'INSERT INTO '+ATable2+'(ITF_ConsignmentBillNo,ITF_ConsignmentItemID,ITF_WorkBillNo,ITF_WorkBillItem,' + ' ITF_ProduceFlag,ITF_MaterielCode,ITF_MaterielDesc,ITF_MaterielNum,ITF_EntryName,ITF_IdentifyCode,ITF_EngineModel,' + ' ITF_MaterielEngDesc)' + ' VALUES ('''+s1+''','''+s2+''','''+s3+''','''+s4+''','''+s5+''','''+s6+''','''+s7+''','+ ' '''+s8+''','''+s9+''','''+s10+''','''+s11+''','''+s12+''' ) '; adoqTemp.Close; adoqTemp.SQL.Clear; adoqTemp.SQL.Add(ins2); adoqTemp.ExecSQL; end; //发货单合作伙伴 for r := 1 to iCount3 do begin s1 := Table3.value(r,'VBELN'); s2 := Table3.value(r,'PARVW'); s3 := Table3.value(r,'KUNNR'); //s4 := Table3.value(r,'NAME1');// stringreplace(ComBoUser.Text,'''','''''',[rfReplaceAll]) s4 := stringreplace(Table3.value(r,'NAME1'),'''','''''',[rfReplaceAll]); //s5 := Table3.value(r,'NAME2'); s5 := stringreplace(Table3.value(r,'NAME2'),'''','''''',[rfReplaceAll]);[red] s6 := Table3.value(r,'STRAS');//此处为从SAP中取出的地址数据,数据为中文,只要取出的数据的字符串长度超过30则被自动截断[/red] s7 := stringreplace(Table3.value(r,'STR_SUPPL1'),'''','''''',[rfReplaceAll]); //s8 := Table3.value(r,'NAMELX'); s8 := stringreplace(Table3.value(r,'NAMELX'),'''','''''',[rfReplaceAll]); s9 := Table3.value(r,'TEL_NUMBER'); s10 := Table3.value(r,'TEL_EXTENS'); s11 := Table3.value(r,'FAX_NUMBER'); //s12 := Table3.value(r,'STR_SUPPL2'); s12 := stringreplace(Table3.value(r,'STR_SUPPL2'),'''','''''',[rfReplaceAll]); ins3 := 'INSERT INTO '+ATable3+'(ITF_ConsignmentBillNo,ITF_FellowType,ITF_Fellow,ITF_Client1,ITF_Client2,' + 'ITF_Street1,ITF_Street2,ITF_Linkman,ITF_Tel,ITF_Extension,ITF_Fax,ITF_Street3)' + ' VALUES ('''+s1+''','''+s2+''','''+s3+''','''+s4+''','''+s5+''','''+s6+''','''+s7+''','+ ' '''+s8+''','''+s9+''','''+s10+''','''+s11+''','''+s12+''' ) '; adoqTemp.Close; adoqTemp.SQL.Clear; adoqTemp.SQL.Add(ins3); adoqTemp.ExecSQL; end; { //发货单英文特性 for r := 1 to iCount4 do begin h1 := Table4.value(r,'VBELN'); h2 := Table4.value(r,'POSNR'); h3 := Table4.value(r,'ATWTB'); ins4:= 'INSERT INTO '+ATable4+'(ITF_Consignment,ITF_ConsignmentObj,ITF_ConsignmentTxt)' + ' VALUES ('''+h1+''','''+h2+''','''+h3+''') '; adoqTemp.Close; adoqTemp.SQL.Clear; adoqTemp.SQL.Add(ins4); adoqTemp.ExecSQL; end; } fun.autologon := false; fun.free; saplogin.free; exit; bill := true; result := bill; end;end;exportsPCDZMIB07 index 14;{$R *.res}beginend.
 
没人回答,都沉下去了,自己顶一下!~
 
确定中文地址长度,SAP中是否有长度限制.
 
SAP中没有长度限制,相同的方法通过RFC取SAP数据,用JAVA实现就没问题!~
 
还是没有回答阿~难道没人处理过这类问题吗?
 
s6 := Table3.value(r,'STRAS');//检查下,对应 Table3的字段长度及字段数据类型,对于中文字符,建表sql中,考虑下改用 nvarchar()数据类型,试试看.
 
s6 := Table3.value(r,'STRAS');//检查下,对应 Table3的字段长度及字段数据类型,对于中文字符,建表sql中,考虑下改用 nvarchar()数据类型,试试看.----------------------------xj_lq大虾,谢谢关注,我说明一下,这里Table3定义的是variant类型的变量,用来保存SAP的RFC中对应表的数据,并不是一个表我怀疑是不是delphi的variant这种数据类型的存在BUG?有处理过这类问题请支招!~谢谢了
 
难道没人处理过这类问题?
 
你使用了com对象?那么用olevariant试验一下?或者直接用BSTR?
 
注意编码问题,如果JAVA直接读没有问题,说明可能是UTF-8编码的你用Delphi读出来后UTF8Decode一下试试,传参的时候也注意一下长度问题。没细看你的代码,猜测应该是这方面的原因。
 
最近比较忙,问题还没彻底解决,期待高手给予更明确一些的答案!~
 
后退
顶部