如何撰寫 Web Service s Client端程式?? |
缺席
|
yu168
一般會員 ![]() ![]() 發表:29 回覆:27 積分:16 註冊:2002-06-28 發送簡訊給我 |
|
andersonhsieh
版主 ![]() ![]() ![]() ![]() ![]() 發表:33 回覆:531 積分:439 註冊:2002-06-10 發送簡訊給我 |
|
yu168
一般會員 ![]() ![]() 發表:29 回覆:27 積分:16 註冊:2002-06-28 發送簡訊給我 |
WSDL 的錯誤訊息如附件圖檔
底下是我寫的程式碼, 已經讀到SOAP了, 可是在接下來就不知道該如何繼續了
(其中的Stock Unit是利用 WSDL Importer 產生的)
===程式碼起始==========================================
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, InvokeRegistry, Rio, SOAPHTTPClient, StdCtrls, ComCtrls; type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Memo1: TMemo;
HTTPRIO1: THTTPRIO;
procedure Button1Click(Sender: TObject);
procedure HTTPRIO1AfterExecute(const MethodName: String;
SOAPResponse: TStream);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm}
uses
Stock;
procedure TForm1.Button1Click(Sender: TObject);
begin
HTTPRIO1.URL :='http://localhost:8098/Stock.asmx'; (HTTPRIO1 as StockSOAP).GetStock(edit1.text); end; procedure TForm1.HTTPRIO1AfterExecute(const MethodName: String;
SOAPResponse: TStream);
begin
SOAPResponse.Position:=0;
Memo1.Lines.LoadFromStream(SOAPResponse);
Memo1.Lines.SaveToFile('c:\data.xml');
SOAPResponse.Position:=0;
end;
end.
===程式碼結束==========================================
底下是我所抓到的資料
===Data起始==========================================
<?xml version="1.0" encoding="utf-8"?>
|
yu168
一般會員 ![]() ![]() 發表:29 回覆:27 積分:16 註冊:2002-06-28 發送簡訊給我 |
|
yu168
一般會員 ![]() ![]() 發表:29 回覆:27 積分:16 註冊:2002-06-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |