討論區快速選單
知識庫快速選單
政府補助!學嵌入式+物聯網 討論區最近新進100則主題 想要資料分析就學Python
[ 回上頁 ] [ 討論區發言規則 ]
Delphi要如何取用C#所編輯的web service
更改我的閱讀文章字型大小
作者 : thomasyen(nano)
[ 貼文 30 | 人氣 5826 | 評價 50 | 評價/貼文 1.67 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2011/8/4 下午 01:51:53
我已成功利用WSDL Importer 將 c# 所寫的 webservice invoke進 delphi 專案

在invoke的 pas 檔案裡我的function 定義如下:

function PersonalCheck(const parameters: PersonalCheck): PersonalCheckResponse; stdcall;

此function的功能是將帳號,密碼 藉由 c# 所寫的 webservice 去 server 上驗證,並回傳結果

我的問題是,這個const 資料要如何將值傳遞出去??

Client 端我用一個SOAPHTTPClient元件(HTTPRIO1)來執行呼叫web service

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  intfPedis: PEDISSoap;
  dae_rc : Boolean;
  employee_id : String;
  PWD : String;
begin
  try
    employee_id := Edit1.Text;
    PWD := Edit2.Text;

    intfPedis := HTTPRIO1 AS PEDISSoap;

    dae_rc:=intfPedis.PersonalCheck(???這裡面要如何將employee_id與PWD帶入);

  finally
    intfPedis := nil;
  end;
end;

以下是PersonalCheck type 的內容
PersonalCheck = class(TRemotable)
  private
    FEmplID: string;
    FEmplID_Specified: boolean;
    Fpswd: string;
    Fpswd_Specified: boolean;
    procedure SetEmplID(Index: Integer; const Astring: string);
    function EmplID_Specified(Index: Integer): boolean;
    procedure Setpswd(Index: Integer; const Astring: string);
    function pswd_Specified(Index: Integer): boolean;
  public
    constructor Create; override;
  published
    property EmplID: string Index (IS_OPTN) read FEmplID write SetEmplID stored EmplID_Specified;
    property pswd: string Index (IS_OPTN) read Fpswd write Setpswd stored pswd_Specified;
  end;

constructor PersonalCheck.Create;
begin
  inherited Create;
  FSerializationOptions := [xoLiteralParam];
end;

procedure PersonalCheck.SetEmplID(Index: Integer; const Astring: string);
begin
  FEmplID := Astring;
  FEmplID_Specified := True;
end;

procedure PersonalCheck.Setpswd(Index: Integer; const Astring: string);
begin
  Fpswd := Astring;
  Fpswd_Specified := True;
end;
 板主 : 郭祈良 , 葉雨心
 > Delphi - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Delphi - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Delphi
1 hagar 8170 
2 心若浮雲 2140 
3 葉雨心 1350 
4 狼鷹 1240 
5 foxelf 730 
6 Allen 680 
7 貓老大 510 
8 xriz8989 440 
9 ㄚ松 410 
10 Falcon 320 
Delphi
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.03125