Discussion :

[sevyc64]

Salut à tous,

Je modifie actuellement un dev en DELPHI 7 pour ajouter une connection à un webservice.

J'ai donc importer un fichier wsdl.

Je fais parallèlement évoluer mon Webservice.

Est-il possible dans DELPHI 7 de recharger le fichier wsdl, ou faut-il systématiquement supprimer l'unité qui a été créer, les fichiers correspondants (en perdant donc les modifications qui y ont été faites), pour réimporter la wsdl comme la première fois?

[ShaiLeTroll]

Souvent, le code généré est assez pourri, donc si tu l'as modifié pour le rendre plus joli, pour ajouter des correspondance via des RegisterXS..., eh bien, il faut ré-importer le WSDL dans une autre unité et recopier les différences, il est bon de savoir modifier les interfaces remotables à la main, mais oui c'est assez pénible ... surtout que tout ne s'importe pas bien selon la version de l'importateur ... personnellement, j'ai du utiliser l'importateur de Delphi 2009 pour supporter des types SOAP 1.2 alors que Delphi 7 et le SOAP Borland ne gère que la version 1.1

C'est aussi un des mes problèmes, les énumérations par exemple, sont souvent mal nommé, donc je les modifie toutes, et derrière je fais les Register ... donc lorsque l'on m'ajoute un truc, c'est souvent pénible ...

Attention, au type TXSDate.AsDate, qui est mal codé ...

Code :

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

1
2
3
4
5
class function TShaiWSTool.XSDateToDate(ADate: TXSDate): TDateTime;
begin
  // Le TXSDate.AsDate est buggé ! uniquement Date en Anglais
  Result := EncodeDate(ADate.Year, ADate.Month, ADate.Day);
end;

[sevyc64]

Ok, merci, c'est bien ce que je fais à l'heure actuelle.

Je ne modifie pas pour faire joli, mais simplement pour pouvoir compiler, l'importateur est tellement intelligent, qu'il me met les déclarations dans le désordre le plus total et donc utilise à moment donné des types qu'il n'a pas encore défini et ça compile pas.

Par contre, comment fais-tu pour définir l'importateur à utiliser ???

[ShaiLeTroll]

Effectivement, j'ai eu parfois des énumérations avec les mêmes noms de constantes (le wsdl que m'a fourni fait près de 32Ko ...), et sympa, pour lui, il y a re-déclaration, donc je préfixe ...

Je change l'exe à la sauvage dans Borland\Delph7\Bin\ ... et je jongle entre WSDLImp.D7.exe et WSDLImp.D2009.exe, que je copie et renomme en WSDLImp.exe ... pour que Delphi prenne telle ou telle version

[sevyc64]

Ok, merci.

[sevyc64]

Saurais tu comment convertir une variable de type TDateTime en TXSDate et en TXSTime ??

[ShaiLeTroll]

Code Typique, lorsque j'ai un TXSDateTime comme paramètre d'une fonction ...

Code :

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

1
2
3
4
5
6
7
8
9
      DateDeNaissance := TXSDateTime.Create();
      try
        DateDeNaissance.AsDateTime := IndividuObject.DDN;
 
 
        Result := WSIntf.RecherchePatients(IndividuObject.NomDeNaissance, IndividuObject.Pprenom, DateDeNaissance);
      finally
        DateDeNaissance.Free();
      end;