Trouble with fichier THTML GDIPL2A.pas

Question

Exécution d'un projet et obtenait une erreur disant
"Pas assez de paramètres réels" L'erreur est dans "C: \ Program Files \ PBear \ HTMLComponents \ package \ GDIPL2A.pas". L'erreur a pointé trois fois vers "Créer hérité"; lignes 260, 270 et 278. Dans le fichier « GDIPL2A.pas » .Ce code est le suivant: -

var 
    err: integer; 
begin 
inherited Create; 
err := GdipCreateBitmapFromScan0(W, H, 0, PixelFormat32bppARGB, nil, fHandle); 
if err <> 0 then 
    raise EGDIPlus.Create('Can''t create bitmap'); 
end; 

Je me demandais pourquoi il montrerait une erreur dans les fichiers « THTML », qui ne sont que FICHIERS DE L'INSTALLATION DE THTML.I n'a pas même toucher les fichiers THTML.

Veuillez aider

Merci et salutations

Vas

Answer 1

A "Pas assez de paramètres réels" erreur sur "Create héritée;" signifie que vous essayez d'appeler un constructeur hérité mais qu'il ne fournit aucun paramètre. Vérifiez la classe dont vous héritez et vous verrez une création qui nécessite certains paramètres. (Si la classe de base n'en a pas, vérifiez son parent, et son parent et ainsi de suite.Vous en trouverez un finalement.) Il devrait être assez évident une fois que vous trouvez la déclaration du constructeur ce que vous devez lui passer .

Votre appel doit ressembler à quelque chose comme:

inherited Create(param1, param2); 

Answer 2

Je THTML, et il comprend en effet GDIPL2A.pas, qui est un wrapper autour GDIPlus; apparemment THTML utilise GDIPlus pour afficher des images incorporées ou quelque chose.

Un rapide coup d'oeil à la déclaration de TGPImage et TGpBitmap montre les déclarations du constructeur de chaque:

// TGpImage 
public 
    constructor Create(FileName: string; TmpFile: boolean = False); overload; 
    constructor Create(IStr: IStream); overload; 

// TGpBitmap 
public 
    constructor Create(W, H: Integer); overload; 
    constructor Create(IStr: IStream); overload; 

Vous verrez que tous les constructeurs prend au moins un ou deux paramètres; votre appel à Create hérité ne passe pas. Cependant, comme l'appel à inherited est dans un autre constructeur, il devrait fonctionner (et en fait sur ma machine, j'ai juste essayé de reconstruire l'une des démos de THTML et il a recompilé GDIPL2A.pas bien), Vous avez quelque chose d'autre, comme une version différente de GDIPL2A dans votre chemin que le compilateur utilise à la place de celle que vous voyez dans l'éditeur de l'EDI.

En ce qui concerne votre question, j'ai répondu dans le premier paragraphe ci-dessus. Il signale l'erreur dans THTML parce que c'est la copie de GDIPL2A que le compilateur utilise, qui n'est peut-être pas celle que votre code s'attend à utiliser.

Vous pouvez corriger cela soit:

1. unités Réorganiser dans la clause uses de votre code afin que tous les appels qui provoquent GDIPL2A de compiler utilisent le même;

2. Copiez le GDIPL2A que votre code pense utiliser dans le dossier source de votre projet, il sera donc compilé à partir de là.Cela va probablement casser THTML si vous l'utilisez dans ce même projet, alors soyez prêt pour cela; Trouvez et résolvez les copies concurrentes de GDIPL2A afin qu'il n'y ait qu'une seule copie disponible sur le chemin de recherche du compilateur;

3. Supprimez le chemin THTML des chemins de recherche et de bibliothèque de votre projet, si vous ne l'utilisez pas dans votre projet problématique. Vous pouvez également, en utilisant Project | Options | Packages, empêcher le chargement de THTML lorsque vous ouvrez le projet si vous le souhaitez, pour que votre projet se charge plus rapidement.

Answer 3

Je ne sais pas si quelqu'un l'a déjà lu mais mon problème est survenu lors de l'installation de ThtmlViewer. Ma solution était d'éditer le fichier GDIPL2A.pas. Je viens d'ajouter une chaîne de emty et un faux booléen, de sorte que le 3 créer des déclarations ressemblaient à ceci:

inherited Create('', False); 

Et puis tout a bien fonctionné (au moins jusqu'à présent)

(j'ai un vieux Delphi 4 sur un vieux Windows XP sur un vieux PC, non connecté à Internet)

Veuillez

Erling