全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1552
推到 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,不知哪位大大能教導一下,謝謝,另外附上相關錯誤訊息畫面,麻煩各位大大了,謝謝

系統時間:2017-10-18 17:14:35
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!