cancel
Showing results for 
Search instead for 
Did you mean: 

Calling web service from Delphi7?

Former Member
0 Kudos

Hi,

anyone could send me a demo, calling a wsdl web service from Delphi 7? i am beginner for web service & sap.

Any help will appreciate.

Thanks.

Accepted Solutions (0)

Answers (4)

Answers (4)

michael_habermueller
Participant
0 Kudos

Hello Ali,

have you had solved your problem.

In the near future a partner should use WebServices delivered by SAP from a delphi application

Any documentation or hint to do this would be great.

Best regards

Michael

Former Member
0 Kudos

Hi,

i search google 3 days but nothing found : (

Firm send a user name and password for accessing web service. i read some notes about Delphi doesn't support ws-security. This could be the problem?

Thanks.

Former Member
0 Kudos

Thanks for answer.

i try some webservices and consuming they without problem but i couldn't call sap web service. i use wsdl importer but wsdl importer doesn't create httprio function?? For example, when i import a codegear wsdl (http://cc.codegear.com/ccws/cc.asmx?WSDL) it's like this :

ICodeCentralWSSoap = interface(IInvokable)
  ['{6ABDF982-CBF4-A50C-28B9-24CABB94B13B}']
    function  Login(const AEmail: WideString; const APassword: WideString; const AUserAgent: WideString): LoginResult; stdcall;
    function  LoginZLib(const AEmail: WideString; const APassword: WideString; const AUserAgent: WideString): TByteDynArray; stdcall;
    function  Search(const ASessionID: WideString; const AIDList: WideString; const AProductList: WideString; const ASubmitter: WideString; const ACategoryList: WideString; const ALowVersion: Double; const AHighVersion: Double; const AFromDate: TXSDateTime; const AToDate: TXSDateTime; const AUseDates: Boolean; 
                     const AKeywords: WideString; const ACopyright: Integer): SearchResult; stdcall;
    function  SearchZLib(const ASessionID: WideString; const AIDList: WideString; const AProductList: WideString; const ASubmitter: WideString; const ACategoryList: WideString; const ALowVersion: Double; const AHighVersion: Double; const AFromDate: TXSDateTime; const AToDate: TXSDateTime; const AUseDates: Boolean; 
                         const AKeywords: WideString; const ACopyright: Integer): TByteDynArray; stdcall;
    function  GetSnippet(const ASessionID: WideString; const ASnippetID: Integer): GetSnippetResult; stdcall;
    function  GetSnippetZLib(const ASessionID: WideString; const ASnippetID: Integer): TByteDynArray; stdcall;
    function  DownloadAttachment(const ASessionID: WideString; const ASnippetID: Integer): TByteDynArray; stdcall;
    function  GetProducts(const ASessionID: WideString): GetProductsResult; stdcall;
    function  GetProductsZLib(const ASessionID: WideString): TByteDynArray; stdcall;
    function  GetCategories(const ASessionID: WideString): GetCategoriesResult; stdcall;
    function  GetCategoriesZLib(const ASessionID: WideString): TByteDynArray; stdcall;
    function  GetCopyrights(const ASessionID: WideString): GetCopyrightsResult; stdcall;
    function  GetCopyrightsZLib(const ASessionID: WideString): TByteDynArray; stdcall;
    function  GetTerms(const ASessionID: WideString): GetTermsResult; stdcall;
    function  GetTermsZLib(const ASessionID: WideString): TByteDynArray; stdcall;
    function  GetAllDownloads(const ASessionID: WideString): GetAllDownloadsResult; stdcall;
    function  GetAllDownloadsZLib(const ASessionID: WideString): TByteDynArray; stdcall;
    function  GetOutdatedDownloads(const ASessionID: WideString): GetOutdatedDownloadsResult; stdcall;
    function  GetOutdatedDownloadsZLib(const ASessionID: WideString): TByteDynArray; stdcall;
    function  GetSnippetsWithComments(const ASessionID: WideString): GetSnippetsWithCommentsResult; stdcall;
    function  GetSnippetsWithCommentsZLib(const ASessionID: WideString): TByteDynArray; stdcall;
    function  GetSnippetsCommentedByUser(const ASessionID: WideString): GetSnippetsCommentedByUserResult; stdcall;
    function  GetSnippetsCommentedByUserZLib(const ASessionID: WideString): TByteDynArray; stdcall;
    function  GetSnippetsWithRatings(const ASessionID: WideString): GetSnippetsWithRatingsResult; stdcall;
    function  GetSnippetsWithRatingsZLib(const ASessionID: WideString): TByteDynArray; stdcall;
    function  GetSnippetsRatedByUser(const ASessionID: WideString): GetSnippetsRatedByUserResult; stdcall;
    function  GetSnippetsRatedByUserZLib(const ASessionID: WideString): TByteDynArray; stdcall;
    function  GetRecommendations(const ASessionID: WideString; const ASnippetID: Integer): GetRecommendationsResult; stdcall;
    function  GetRecommendationsZLib(const ASessionID: WideString; const ASnippetID: Integer): TByteDynArray; stdcall;
    function  CanDownload(const ASessionID: WideString; const ASnippetID: Integer): Boolean; stdcall;
    function  GetRequiredPackages(const ASessionID: WideString; const ASnippetID: Integer): GetRequiredPackagesResult; stdcall;
    function  GetRequiredPackagesZLib(const ASessionID: WideString; const ASnippetID: Integer): TByteDynArray; stdcall;
  end;

function GetICodeCentralWSSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): ICodeCentralWSSoap;  
*/* this functions equal not in sap webservice */*


implementation

function GetICodeCentralWSSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): ICodeCentralWSSoap;
const
  defWSDL = 'http://cc.codegear.com/ccws/cc.asmx?WSDL';
  defURL  = 'http://cc.codegear.com/ccws/cc.asmx';
  defSvc  = 'ICodeCentralWS';
  defPrt  = 'ICodeCentralWSSoap';
var
....

i use function GetICodeCentralWSSoap, but wsdl importer doesn't create this function equal in sap web service. sap web service like this :

ZABCD_GET_DAT = interface(IInvokable)
  ['{72BD4B88-0D89-A294-1DAC-63FBFF037735}']
    function  ZztrABCWebServ01(const parameters: ZztrABCWebServ01): ZztrABCWebServ01Response; stdcall;
  end;



implementation

destructor ZztrABCWebServ01.Destroy;
var
  I: Integer;
begin
....

Thanks.

lbreddemann
Active Contributor
0 Kudos

Hi,

perhaps the wrong forum here...

Anyhow, SAP NetWeaver WebServivces support the WDSL standard. So a search on google, like [http://www.google.com/search?q=wsdlwebserviceDelphi+7] should bring up some demo coding.

regards,

Lars