Discussion :

[feddraluv]

Bonjour,

Je suis sur la version Delphi 2007 et j’essaie d'interroger un service web.
J'ai déjà généré la partie du client service web a partir d'un wsdl mais quand je veux l’interroger j'ai cette erreur :

---------------------------
Project1
---------------------------
Violation d'accès à l'adresse 7693A06E dans le module 'msvcrt.dll'. Lecture de l'adresse 00134000.
---------------------------
OK
---------------------------

Quelqu'un peut m'aider?

[ShaiLeTroll]

msvcrt.dll ?
Delphi utilise cette DLL ?

Tu as bien alloué tes objets ?
le THTTRio ?
Je pense aussi aux paramètres d'une fonction, c'est l'appelant qui doit les allouer et libérer, l'appelant est aussi responsable de la libération d'un objet reçu en retour

Sans code, même si c'est surement que du générer c'est difficile de répondre !

[feddraluv]

Oui je suis étonnée aussi pour l’utilisation de la dll.
Je pense que le service que j’appelle a un souci mais je ne peux pas avoir plus des renseignements sur le service (ca vient des sources externes).
Je fais les choses normales pour crée un client web services et je l’ai fait avant !
J’ai une forme ou j’ai un composant THTTPRIO ou je renseigne toute les infos de wsdl. J’ai passé par le importer wsdl Delphi et j’appelle le service tout simplement.
Le code :

Le service :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
TrackAndTrace = interface(IInvokable)
    function  GetImage(const ImageId: WideString; const Identity: Variant; const Version: WideString): ImageType; stdcall;
  end;
function GetTrackAndTracet(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): TrackAndTrace;

Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  FTrackAndTrace: TrackAndTrace;
begin
  HTTPRIO1.HTTPWebNode.UserName := 'TU_5347138_01';
  HTTPRIO1.HTTPWebNode.Password := 'rnv3TCEmQ1';
  FTrackAndTrace := GetTrackAndTrace (False, '', HTTPRIO1);
  FTrackAndTrace. GetImage (‘1’, 0, ‘0’);
end;