Skip to Content
avatar image
Former Member

Calling web service from Delphi7?

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.

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

4 Answers

  • Oct 12, 2008 at 08:16 PM

    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

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Oct 12, 2008 at 08:50 PM

    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.

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Oct 13, 2008 at 09:47 AM

    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.

    Add comment
    10|10000 characters needed characters exceeded

  • Dec 18, 2008 at 11:05 AM

    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

    Add comment
    10|10000 characters needed characters exceeded