ftwsnow

摘要： Procedure aaaaaaa(CorpName: PChar; CorpAccount, ActualCorpName: PChar; var Amount: Double; FiscalComments: PChar; ErrorCode,ErrorMessage: PChar); stdcall; external 'ccc.dll'; TCorpRecord = record CorpAccount, ActualCorpName, FiscalComments, ErrorCode, ErrorMessage: PChar; Amount: Double; end 阅读全文

摘要： CLASS_clsLogin: TGUID = '{72A6FADA-FE26-46BD-A921-BFD1179C1E1E}';TGUID = packed record D1: LongWord; D2: Word; D3: Word; D4: array[0..7] of Byte;end;clsLogin = interface;//////////my_login : clsLogin;my_login:=CreateComObject(CLASS_clsLogin) as clsLogin; 阅读全文

摘要： Private Declare Sub CallDishDetail Lib "D:\VBTest\CallDetail.dll" (ByVal orderid As Long)Private Sub Command1_Click()Dim orderid As LongIf Not IsNumeric(Text1.Text) ThenLabel1.Caption = "不是有效的数字"Elseorderid = Int(Text1.Text)Label1.Caption = ""Call CallDishDetail(orderid 阅读全文

摘要： library CallDetail;uses SysUtils, Classes, ADODB, Dialogs, ActiveX, DishDetail in 'DishDetail.pas' {frmOrderDetail};function CallDishDetail(Orderid:Integer):Boolean;stdcall;var f:TfrmOrderDetail;begin Result:=False; f:=TfrmOrderDetail.Create(nil); try f.OrderID:=Orderid; f.ShowModal;... 阅读全文

摘要： //放入一个HTTPRIO1: THTTPRIO;var ImageArray:array of ImageBean;byteArray:TByteDynArray;memStream:Tmemorystream; SetLength(ImageArray,Num); memStream:=TMemoryStream.Create; for i:=0 to Num-1 do begin memStream.Clear; ImageArray[i]:=ImageBean.Create; ImageArr... 阅读全文