开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
CallerForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

CallerForm.pas：源码内容
  1. unit CallerForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ConvertIntf, SoapHTTPClient, InvokeRegistry;
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Button2: TButton;
  13.     EditAmount: TEdit;
  14.     ComboBoxFrom: TComboBox;
  15.     ComboBoxTo: TComboBox;
  16.     LabelResult: TLabel;
  17.     procedure Button1Click(Sender: TObject);
  18.     procedure FormCreate(Sender: TObject);
  19.     procedure Button2Click(Sender: TObject);
  20.   private
  21.     Invoker: THTTPRio;
  22.     ConvIntf: IConvert;
  23.   public
  24.     { Public declarations }
  25.   end;
  27. var
  28.   Form1: TForm1;
  30. implementation
  32. {$R *.dfm}
  34. procedure TForm1.Button1Click(Sender: TObject);
  35. begin
  36.   LabelResult.Caption := Format ('%n', [(ConvIntf.ConvertCurrency(
  37.     ComboBoxFrom.Text, ComboBoxTo.Text, StrToFloat (EditAmount.Text)))]);
  38. end;
  40. procedure TForm1.FormCreate(Sender: TObject);
  41. begin
  42.   Invoker := THTTPRio.Create(nil);
  43.   Invoker.URL := 'http://localhost/scripts/ConvertService.exe/soap/iconvert';
  44.   ConvIntf := Invoker as IConvert;
  45. end;
  47. procedure TForm1.Button2Click(Sender: TObject);
  48. var
  49.   TypeNames: string;
  50. begin
  51.   TypeNames := ConvIntf.TypesList;
  52.   ComboBoxFrom.Items.Text := StringReplace (TypeNames, ';', sLineBreak, [rfReplaceAll]);
  53.   ComboBoxTo.Items := ComboBoxFrom.Items;
  54. end;
  56. end.