Skip to Content
author's profile photo Former Member
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 a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

4 Answers

  • Posted on 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 a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on 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 a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on 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 a comment
    10|10000 characters needed characters exceeded

  • Posted on 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 a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.