BorlandTalk.com Forum Index BorlandTalk.com
Borland discussion newsgroups
 
Archives   FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Soap can confuse the communication with the net?

 
Post new topic   Reply to topic    BorlandTalk.com Forum Index -> Delphi WebServices SOAP
View previous topic :: View next topic  
Author Message
hene william
Guest





PostPosted: Wed Feb 16, 2005 10:59 am    Post subject: Soap can confuse the communication with the net? Reply with quote




I formatted a machine and I reinstalled win2000 when installing SoapSDK 3,0 I perceived that it is very reading my communication in the net, case UninStall the SoapSDK my communication with the net is more rapido.. What it can be?


Back to top
Deepak Shenoy
Guest





PostPosted: Thu Feb 17, 2005 6:10 am    Post subject: Re: Soap can confuse the communication with the net? Reply with quote



hene william wrote:

Quote:
I formatted a machine and I reinstalled win2000 when installing
SoapSDK 3,0 I perceived that it is very reading my communication in
the net, case UninStall the SoapSDK my communication with the net is
more rapido.. What it can be?

It may just be a coincidence. AFAIK, the SOAP SDK doesn't change any of
the IE components or slow it down.


--
Deepak Shenoy (TeamB)
Agni Software
http://www.agnisoft.com

Back to top
Shershen Vlad
Guest





PostPosted: Wed Feb 22, 2006 1:03 pm    Post subject: Re: AV running Web Service on Windows 2003 Server Reply with quote

I had same problem on 64-bit AMD processor...
But It's works good on 32-bit..

Any ideas?

--
Best regards
Shershen Vladislav
CS Ltd
mailto:sv (AT) csltd (DOT) com.ua




"Scott" <N.A (AT) none (DOT) com> wrote in message
news:438e4920$1 (AT) newsgroups (DOT) borland.com...
Quote:

I am experiencing an AV error Running any web Service client on only one
of two Windows 2003 Servers we've tried. We need the one not working to

work. I am using D7 enterprise.
Quote:

I have applied the Dr. Bob patch for SysUtils GetEnvironmentVariable for
that particular AV error and no change. After this I also applied the

latest D7 update. No change. We have tried to different Web Services.
Both Web Service clients are fine on two XP's and a Win Server 2003, but
fail on the important machine with Windows Server 2003.
Quote:

In case its needed here's my Web Service Client. Thanks for any help. I
am very stuck at the moment. I don't think its the Web Service code, but

can't say for sure. Couldn't find a way to trace into any delphi code
besides the code below. Even knowing how to trace further would be helpful.
Quote:

HTTPRio properties
WSDLLocation = 'uszip.xml'
Service = 'USZip'
Port = 'USZipSoap'


unit MainForm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, InvokeRegistry, Rio, SOAPHTTPClient, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
btnAnswer: TButton;
lbeZIPCode: TLabeledEdit;
HTTPRIO1: THTTPRIO;
Memo1: TMemo;
procedure btnAnswerClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses USZip;
{$R *.dfm}

procedure TForm1.btnAnswerClick(Sender: TObject);
var
USZIP: USZipSoap;
begin
try
USZIP := (HTTPRIO1 AS USZipSoap);
Memo1.Text := USZIP.GetInfoByZIP(lbeZIPCode.Text);
except
on e: exception do
ShowMessage(e.Message);
end;
end;

end.

------------ the imported wsdl unit

//
************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : C:\Documents and Settings\Scott
Cooper\Desktop\babel\uszip.xml
// Encoding : utf-8
// Version : 1.0
// (11/30/2005 11:55:58 AM - 1.33.2.5)
//
************************************************************************ //

unit uszip;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

type

//
************************************************************************ //
// The following types, referred to in the WSDL document are not being
represented
// in this file. They are either aliases[@] of other types represented
or were referred
// to but never[!] declared in the document. The types from the latter
category
// typically map to predefined/known XML or Borland types; however, they
could also
// indicate incorrect WSDL documents that failed to declare or import a
schema type.
//
************************************************************************ //
// !:string - "http://www.w3.org/2001/XMLSchema"


GetInfoByZIPResult = type WideString; {
"http://www.webserviceX.NET" }
GetInfoByCityResult = type WideString; {
"http://www.webserviceX.NET" }
GetInfoByStateResult = type WideString; {
"http://www.webserviceX.NET" }
GetInfoByAreaCodeResult = type WideString; {
"http://www.webserviceX.NET" }

//
************************************************************************ //
// Namespace : http://www.webserviceX.NET
// soapAction: http://www.webserviceX.NET/%operationName%
// transport : http://schemas.xmlsoap.org/soap/http
// style : document
// binding : USZipSoap
// service : USZip
// port : USZipSoap
// URL : http://www.webservicex.com/uszip.asmx
//
************************************************************************ //
USZipSoap = interface(IInvokable)
['{47E1110E-7DAE-13F0-C643-EFFE9C98A3A3}']
function GetInfoByZIP(const USZip: WideString): GetInfoByZIPResult;
stdcall;
function GetInfoByCity(const USCity: WideString):
GetInfoByCityResult; stdcall;
function GetInfoByState(const USState: WideString):
GetInfoByStateResult; stdcall;
function GetInfoByAreaCode(const USAreaCode: WideString):
GetInfoByAreaCodeResult; stdcall;
end;

function GetUSZipSoap(UseWSDL: Boolean=System.False; Addr: string='';
HTTPRIO: THTTPRIO = nil): USZipSoap;


implementation

function GetUSZipSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO):
USZipSoap;
const
defWSDL = 'uszip.xml';
defURL = 'http://www.webservicex.com/uszip.asmx';
defSvc = 'USZip';
defPrt = 'USZipSoap';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as USZipSoap);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;


initialization
InvRegistry.RegisterInterface(TypeInfo(USZipSoap),
'http://www.webserviceX.NET', 'utf-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(USZipSoap),
'http://www.webserviceX.NET/%operationName%');
InvRegistry.RegisterInvokeOptions(TypeInfo(USZipSoap), ioDocument);
RemClassRegistry.RegisterXSInfo(TypeInfo(GetInfoByZIPResult),
'http://www.webserviceX.NET', 'GetInfoByZIPResult');
RemClassRegistry.RegisterXSInfo(TypeInfo(GetInfoByCityResult),
'http://www.webserviceX.NET', 'GetInfoByCityResult');
RemClassRegistry.RegisterXSInfo(TypeInfo(GetInfoByStateResult),
'http://www.webserviceX.NET', 'GetInfoByStateResult');
RemClassRegistry.RegisterXSInfo(TypeInfo(GetInfoByAreaCodeResult),
'http://www.webserviceX.NET', 'GetInfoByAreaCodeResult');

end.
Back to top
Thomas Phaneuf
Guest





PostPosted: Sun Feb 26, 2006 5:03 am    Post subject: Re: Fix for using Delphi 6/7 client with ASP.NET 2.0 Web Ser Reply with quote

Brett!

THANK YOU! Was tearing my hair out wondering where the parameters I was
sending to the web service were going. This fixed it.

-Tom

"Brett Bartholomew" <brett.removeifnotaspammer.bartholomew (AT) iowaglass (DOT) com>
wrote in message news:4394990f$1 (AT) newsgroups (DOT) borland.com...
Quote:
The Delphi 6/7 WSDL importer fails to add the following line to newly
created webservice units for any .NET 2.0 webservice:


InvRegistry.RegisterInvokeOptions(TypeInfo(Service1Soap), ioDocument);


To fix, simply copy this line (replacing Service1 with your webservice
name) into the Service unit's initialization section BELOW
InvRegistry.RegisterInterface and
InvRegistry.RegisterDefaultSOAPAction. The cause of the problem relates
to document-based vs RPC soap rules.

Brett


http://www.autoglasscenter.com
http://www.arniesautoglass.com
http://www.oneilsglass.com
http://www.jcglass.com
http://www.nwautoglass.com


Back to top
stijnster
Guest





PostPosted: Fri Mar 03, 2006 4:03 pm    Post subject: Re: Fix for using Delphi 6/7 client with ASP.NET 2.0 Web Ser Reply with quote

Thanks for sharing that info.
Back to top
Ohlenroth Markus
Guest





PostPosted: Tue Mar 14, 2006 1:03 pm    Post subject: Re: AV running Web Service on Windows 2003 Server Reply with quote

Yes, I have been fighting this problem for 1 week now with a windows 2003
Server, which has an Intel
Xeon Dual processor. My soap service client has been running smooth for
the last half year on different a windows XP systems.
I have used a different webserver (Apache instead of IIS) but to no avail.
I have developed under Delphi 2005



"Scott" <N.A (AT) none (DOT) com> schrieb im Newsbeitrag
news:438e4920$1 (AT) newsgroups (DOT) borland.com...
Quote:

I am experiencing an AV error Running any web Service client on only one
of two Windows 2003 Servers we've tried. We need the one not working to

work. I am using D7 enterprise.
Quote:

I have applied the Dr. Bob patch for SysUtils GetEnvironmentVariable for
that particular AV error and no change. After this I also applied the

latest D7 update. No change. We have tried to different Web Services.
Both Web Service clients are fine on two XP's and a Win Server 2003, but
fail on the important machine with Windows Server 2003.
Quote:

In case its needed here's my Web Service Client. Thanks for any help. I
am very stuck at the moment. I don't think its the Web Service code, but

can't say for sure. Couldn't find a way to trace into any delphi code
besides the code below. Even knowing how to trace further would be helpful.
Quote:

HTTPRio properties
WSDLLocation = 'uszip.xml'
Service = 'USZip'
Port = 'USZipSoap'


unit MainForm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, InvokeRegistry, Rio, SOAPHTTPClient, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
btnAnswer: TButton;
lbeZIPCode: TLabeledEdit;
HTTPRIO1: THTTPRIO;
Memo1: TMemo;
procedure btnAnswerClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses USZip;
{$R *.dfm}

procedure TForm1.btnAnswerClick(Sender: TObject);
var
USZIP: USZipSoap;
begin
try
USZIP := (HTTPRIO1 AS USZipSoap);
Memo1.Text := USZIP.GetInfoByZIP(lbeZIPCode.Text);
except
on e: exception do
ShowMessage(e.Message);
end;
end;

end.

------------ the imported wsdl unit

//
************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : C:\Documents and Settings\Scott
Cooper\Desktop\babel\uszip.xml
// Encoding : utf-8
// Version : 1.0
// (11/30/2005 11:55:58 AM - 1.33.2.5)
//
************************************************************************ //

unit uszip;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

type

//
************************************************************************ //
// The following types, referred to in the WSDL document are not being
represented
// in this file. They are either aliases[@] of other types represented
or were referred
// to but never[!] declared in the document. The types from the latter
category
// typically map to predefined/known XML or Borland types; however, they
could also
// indicate incorrect WSDL documents that failed to declare or import a
schema type.
//
************************************************************************ //
// !:string - "http://www.w3.org/2001/XMLSchema"


GetInfoByZIPResult = type WideString; {
"http://www.webserviceX.NET" }
GetInfoByCityResult = type WideString; {
"http://www.webserviceX.NET" }
GetInfoByStateResult = type WideString; {
"http://www.webserviceX.NET" }
GetInfoByAreaCodeResult = type WideString; {
"http://www.webserviceX.NET" }

//
************************************************************************ //
// Namespace : http://www.webserviceX.NET
// soapAction: http://www.webserviceX.NET/%operationName%
// transport : http://schemas.xmlsoap.org/soap/http
// style : document
// binding : USZipSoap
// service : USZip
// port : USZipSoap
// URL : http://www.webservicex.com/uszip.asmx
//
************************************************************************ //
USZipSoap = interface(IInvokable)
['{47E1110E-7DAE-13F0-C643-EFFE9C98A3A3}']
function GetInfoByZIP(const USZip: WideString): GetInfoByZIPResult;
stdcall;
function GetInfoByCity(const USCity: WideString):
GetInfoByCityResult; stdcall;
function GetInfoByState(const USState: WideString):
GetInfoByStateResult; stdcall;
function GetInfoByAreaCode(const USAreaCode: WideString):
GetInfoByAreaCodeResult; stdcall;
end;

function GetUSZipSoap(UseWSDL: Boolean=System.False; Addr: string='';
HTTPRIO: THTTPRIO = nil): USZipSoap;


implementation

function GetUSZipSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO):
USZipSoap;
const
defWSDL = 'uszip.xml';
defURL = 'http://www.webservicex.com/uszip.asmx';
defSvc = 'USZip';
defPrt = 'USZipSoap';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as USZipSoap);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;


initialization
InvRegistry.RegisterInterface(TypeInfo(USZipSoap),
'http://www.webserviceX.NET', 'utf-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(USZipSoap),
'http://www.webserviceX.NET/%operationName%');
InvRegistry.RegisterInvokeOptions(TypeInfo(USZipSoap), ioDocument);
RemClassRegistry.RegisterXSInfo(TypeInfo(GetInfoByZIPResult),
'http://www.webserviceX.NET', 'GetInfoByZIPResult');
RemClassRegistry.RegisterXSInfo(TypeInfo(GetInfoByCityResult),
'http://www.webserviceX.NET', 'GetInfoByCityResult');
RemClassRegistry.RegisterXSInfo(TypeInfo(GetInfoByStateResult),
'http://www.webserviceX.NET', 'GetInfoByStateResult');
RemClassRegistry.RegisterXSInfo(TypeInfo(GetInfoByAreaCodeResult),
'http://www.webserviceX.NET', 'GetInfoByAreaCodeResult');

end.
Back to top
James Ottley
Guest





PostPosted: Wed Mar 22, 2006 6:03 pm    Post subject: Re: AV running Web Service on Windows 2003 Server Reply with quote

This was driving me nuts as well but this thread finally gave me a clue.

You need to add your application to the list of allowed DEP programs

Go :-

Control Panel -> System -> Advanced -> Performance -> settings - > Data
Execution Prevention

Then add your Soap Client application to the list.

Cheers
Jim Ottley
Ottley Software

"Ohlenroth Markus" <markus.ohlenroth (AT) phil (DOT) uni-augsburg.de> wrote in message
news:4416b454$1 (AT) newsgroups (DOT) borland.com...
Quote:

Yes, I have been fighting this problem for 1 week now with a windows 2003
Server, which has an Intel
Xeon Dual processor. My soap service client has been running smooth for
the last half year on different a windows XP systems.
I have used a different webserver (Apache instead of IIS) but to no avail.
I have developed under Delphi 2005
Back to top
Steve Sidwell
Guest





PostPosted: Sun May 14, 2006 9:15 pm    Post subject: Re: Webserver For SOAP Reply with quote

Im using Intraweb as a soap server and it works great!
http://www.atozed.com/intraweb/
Each request is in its own thread on the server. You'll also need the
interop pack from arcanatech
http://www.arcanatech.com/

Steve Sidwell


"David Caouette" <dcaouette (AT) omniciel (DOT) com> wrote in message
news:43d7c730$1 (AT) newsgroups (DOT) borland.com...
Quote:
Have u googled this:

- IndySOAP

or look at this: http://bdn.borland.com/article/0,1410,27513,00.html

Hope it'll help.

David Caouette



"Deepak Shenoy (TeamB)" <noname (AT) noname (DOT) com> a écrit dans le message de
news: 43569645$1 (AT) newsgroups (DOT) borland.com...
Matt Hardiman wrote:

So what I'm asking is has anyone any suggestions of another web server
application for Windows which is rock solid stable, no fancy features
needed except that the CGI process can run in a named user account
and that the SOAP .exe can reach to other servers via UNC paths.

There's Apache of course :)

I don't know how stable the windows version is, but it's definitely
quite usable.

Only thing is, you have to set this up on a different port to isolate
it from IIS.

another option is that I wrap the SOAP server into a standalone
service but I am worried that my coding isn't up to this. As I said,
the SOAP service has suddenly become quite critical to our business
operation - which wasn't part of the plan.....

service is good as long as you're not getting tons of hits. Otherwise
you have to implement all sorts of thread pooling and all that - which
is not the nicest thing to have to do.

--
Deepak Shenoy (TeamB)
Blog: http://shenoyatwork.blogspot.com

Back to top
Andrew Ofthesong
Guest





PostPosted: Tue May 30, 2006 11:09 pm    Post subject: Re: Web Service over SSL Reply with quote

I have the same question:

¿But where in Client PC do I have to install the certificate?

"Dan Palley" <dan (AT) trams (DOT) com> escribió en el mensaje
news:43a1eacd$1 (AT) newsgroups (DOT) borland.com...
Quote:
"Dario Alvarez Aranda" <darioaa (AT) control2000 (DOT) com.mx> wrote in message
news:43a1e001$1 (AT) newsgroups (DOT) borland.com...
Hi.

I am developing a application client; this application is goingo to use a
web service and I have to especificate a certificate to connect this web
service.

For web service I am using : THTTPrio, Delphi 7.1

How Could I do it ?


Assuming that your web server is already set up to support SSL, all you
would need to do is change the web service URL in your client app from
http to https.

Dan
Back to top
Tilo Ermlich
Guest





PostPosted: Wed May 31, 2006 12:56 am    Post subject: Re: Web Service over SSL Reply with quote

"Andrew Ofthesong" <andrew (AT) ofthesong (DOT) net> schrieb im Newsbeitrag
news:447c88a0 (AT) newsgroups (DOT) borland.com...
Quote:
I have the same question:

¿But where in Client PC do I have to install the certificate?

"Dan Palley" <dan (AT) trams (DOT) com> escribió en el mensaje
news:43a1eacd$1 (AT) newsgroups (DOT) borland.com...
"Dario Alvarez Aranda" <darioaa (AT) control2000 (DOT) com.mx> wrote in message
news:43a1e001$1 (AT) newsgroups (DOT) borland.com...
Hi.

I am developing a application client; this application is goingo to use
a
web service and I have to especificate a certificate to connect this
web
service.

For web service I am using : THTTPrio, Delphi 7.1

How Could I do it ?


Assuming that your web server is already set up to support SSL, all you
would need to do is change the web service URL in your client app from
http to https.

Dan




Hi Andrew and Dan,

if you fix the unit SOAPHTTPTrans.pas (what I think is a must)
you do not have to care about installing client certificates. You can
even use self generated ssl certificates (works very nice with apache):
http://bdnqc.borland.com/wc/qcmain.aspx?d=10823

Greetings from Hamburg/Germany
Tilo Ermlich
Back to top
Post new topic   Reply to topic    BorlandTalk.com Forum Index -> Delphi WebServices SOAP All times are GMT
Page 1 of 1

 
 


Powered by phpBB © 2001, 2006 phpBB Group
.