Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

THTTPRIO and Windows 95 error

Status
Not open for further replies.

RickTolias

Programmer
Jan 16, 2004
2
AR
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'm again..
Sorry, the error said "Access violation at adress 0479652 read of address"...
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top