main.pas

DELPHI 访问.net的WEB SERVICE的例子

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, ExtCtrls, DBCtrls, OleCtrls,
  SHDocVw, ComCtrls, dxmdaset;

type
  TFormMain = class(TForm)
    dxMemData1: TdxMemData;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Edit1: TComboBox;
    WebBrowser1: TWebBrowser;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    dxMemData1Name: TStringField;
    dxMemData1Content: TBlobField;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    DBMemo1: TDBMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSheet1Show(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

uses DBWebShower, WebShower;

{$R *.dfm}

procedure TFormMain.Button1Click(Sender: TObject);
begin
  TBlobField(dxMemData1.FieldByName('Content')).LoadFromFile(Edit2.Text);
end;

procedure TFormMain.Button2Click(Sender: TObject);
begin
  WebBrowser1.Navigate(Edit1.Text);
end;

procedure TFormMain.FormCreate(Sender: TObject);
var
  AFile: string;
begin
  AFile := ChangeFileExt(Application.ExeName, '.dat');
  if FileExists(AFile) then
    dxMemData1.LoadFromBinaryFile(AFile);
  dxMemData1.Open;
  with TDBWebShower.Create(Self) do
  begin
    DataSource := DataSource1;
    FileNameField := 'Name';
    FileContentField := 'Content';
    NameSpace := 'test';
    Active := True;
  end;
end;

procedure TFormMain.Button3Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit2.Text := OpenDialog1.FileName;
end;

procedure TFormMain.Edit2Change(Sender: TObject);
begin
  if dxMemData1.State in dsEditModes then
    dxMemData1.FieldByName('Name').AsString := ExtractFileName(Edit2.Text);
end;

procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dxMemData1.SaveToBinaryFile(ChangeFileExt(Application.ExeName, '.dat'));
end;

procedure TFormMain.TabSheet1Show(Sender: TObject);
begin
  dxMemData1.DisableControls;
  try
    Edit1.Items.Clear;
    dxMemData1.First;
    while not dxMemData1.Eof do
    begin
      Edit1.Items.Add('http://test/' + dxMemData1.FieldByName('Name').AsString);
      dxMemData1.Next;
    end;
  finally
    dxMemData1.EnableControls;
  end;
end;

procedure TFormMain.Edit1Change(Sender: TObject);
begin
  if Edit1.ItemIndex <> -1 then
    Button2.Click;
end;

end.