RickTolias
Programmer
hi
I have a Delphi 7 program with HTTPRio component and it works correctly on Win2k Win98 and Windows Me but doesn´t works on windows 95 osr2 with IE 5.5 installed.
The applicattion connect to web services and return a string value.
I wonder that it could be a msxml.dll or something like this.
here is my example
thank! (help me, help me!)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, InvokeRegistry, Rio, SOAPHTTPClient,wsfarmares;
type
TForm1 = class(TForm)
Button1: TButton;
HTTPRIO1: THTTPRIO;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure HTTPRIO1BeforeExecute(const MethodName: String;
var SOAPRequest: WideString);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
ServicioPW: WSFarmaResSoap;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var ServicioPW : WSFarmaResSoap;
var salidaOk:String;
BEGIN
HTTPRIO1.WSDLLocation:= 'c:\cfresidente\WSFarmaRes.wsdl' ;
ServicioPW:= HTTPRio1 as WSFarmaResSoap;
HttpRio1.FreeOnRelease();
salidaOk := ServicioPW.Validar_Usuario_Contrasena('clafuente', 'clafuente');
label1.Caption := salidaok;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ServicioPW := nil;
end;
end.
I have a Delphi 7 program with HTTPRio component and it works correctly on Win2k Win98 and Windows Me but doesn´t works on windows 95 osr2 with IE 5.5 installed.
The applicattion connect to web services and return a string value.
I wonder that it could be a msxml.dll or something like this.
here is my example
thank! (help me, help me!)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, InvokeRegistry, Rio, SOAPHTTPClient,wsfarmares;
type
TForm1 = class(TForm)
Button1: TButton;
HTTPRIO1: THTTPRIO;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure HTTPRIO1BeforeExecute(const MethodName: String;
var SOAPRequest: WideString);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
ServicioPW: WSFarmaResSoap;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var ServicioPW : WSFarmaResSoap;
var salidaOk:String;
BEGIN
HTTPRIO1.WSDLLocation:= 'c:\cfresidente\WSFarmaRes.wsdl' ;
ServicioPW:= HTTPRio1 as WSFarmaResSoap;
HttpRio1.FreeOnRelease();
salidaOk := ServicioPW.Validar_Usuario_Contrasena('clafuente', 'clafuente');
label1.Caption := salidaok;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ServicioPW := nil;
end;
end.