delphi XE 開發的WEB SERVER呼叫DELPHI 6開發的APP SERVER問題

發文回覆瀏覽次數：1874

推到 Plurk!

推到 Facebook!

delphi XE 開發的WEB SERVER呼叫DELPHI 6開發的APP SERVER問題

缺席

pkz0718
一般會員

發表：4
回覆：7
積分：2
註冊：2013-08-13

發送簡訊給我

#1 引用回覆回覆

發表時間：2013-12-04 14:40:55

IP:220.130.xxx.xxx 訂閱

不知哪位大大有沒有遇過這種問題：
以下為程式碼
舊的APP SERVER：

procedure TCalculationServer.CheckData(const BegDate, EndDate,sFunction : WideString;

out vResult: OleVariant);

var

sQBDate, sQEDate,sYM,sYML: string;

sstatus,sMessage: string;

nMessage: integer;

nCount: integer;

Vtest,V1, V2, V3,V4, V5,V6: OleVariant;

sTest,s_yymm13,s_YYMM:string;

procedure AddMessage(const s: string);

begin

Inc(nMessage);

sMessage := sMessage IntToStr(nMessage) ':' s ' ';

end;

begin

sQBDate := Q(BegDate);

sQEDate := Q(EndDate);

sym:=copy(BegDate,1,4) copy(BegDate,6,2);

sYML:=GetSQLS('select sdate from Calculate order by edate desc limit 1 ');

sYML:=copy(sYML,1,4) copy(sYML,6,2);

V1 := EmptyParam;

V2 := EmptyParam;

V3 := EmptyParam;

V4 := EmptyParam;

V5 := EmptyParam;

V6 := EmptyParam;

nMessage := 0;

sMessage := '';

..................................(中間就不方便顯示)

vResult := VarArrayOf([sMessage,V1,V2,V3,V4,V5,V6]);

end;

以下為DELPHI XE 開發的WEB SERVER呼叫段

uses System.SysUtils, System.Classes,Web.HTTPApp, DBXJSON, Data.FMTBcd,

Data.DBXOdbc, Data.DB, Data.SqlExpr, DBXCommon, DBClient,

VirtualTrees,Data.DbxDatasnap,DBXClient,AppServer_TLB,ActiveX ;

function TWebModule1.GetStartCalcDaily(const ssdate,sedate,sid: string): String;

VAR

syymm_temp,Scmd,Scmd2,Scmd3: String;

JSON: TJSONObject;

v,isFinish: OleVariant;

s,s1 : string;

begin

aCalServer := ICalculationServerDisp(IDispatch(dmCalculation.scCalculate.AppServer));

aCalServer.CheckData(sSdate,sEdate,'Daily',V); <---此為呼叫上段程式

s := V[0];

CDS1.Data := V[1];

CDS2.Data := V[2];

CDS3.Data := V[3];

CDS4.Data := V[4];

CDS5.Data := V[5];

CDS6.Data := V[6];

end;

那程式有確實有跑到舊版程式那，但跑完後，好像在用OleVariant方式有問題。在舊版的delphi 的OleVariant是在system，但新版的好像無法uses無法使用system，不知哪位大大能教導一下，謝謝，另外附上相關錯誤訊息畫面，麻煩各位大大了，謝謝

附加檔案：529ece7719d4d_20131204.doc

系統時間：2024-04-26 6:14:02

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！