Portage Delphi vers Turbo Delphi

Version imprimable

03/08/2007, 21h01
pi_hellz

Portage Delphi vers Turbo Delphi

Bonjour,

J'essaie de compiler différents programme en turbo delphi, ces programmes ont été crées en delphi 3. Mais peu importe le programme que je fais compiler, j'obtiens toujours ces 3 erreurs.

:bug:

Citation:

[Pascal Error] ExecWait.pas(9): E2086 Type 'RIEN' is not yet completely defined
[Pascal Error] ExecWait.pas(36): E2033 Types of actual and formal var parameters must be identical
[Pascal Fatal Error] PImpMuni.pas(7): F2063 Could not compile used unit 'ExecWait.pas'

:bug:

Pourtant quand je les compiles en delphi 3, ils fonctionnent très bien!!

Est-ce quelqu'un pourrait m'aider svp ??

Merci Beaucoup

Pierre-Luc
03/08/2007, 22h29
Laurent Dardenne

Citation:

Envoyé par pi_hellz

Pourtant quand je les compiles en delphi 3, ils fonctionnent très bien!!

Il y a eu qq changements depuis ;)
Sur l'erreur E2086, tu dois avoir une déclaration forward ou une référence d'unité manquante.

Sur l'erreur E2033 les paramètre passés ne sont pas du même type, je crois.
Indique nous le code ce sera mieux je pense.
06/08/2007, 17h00
pi_hellz
Citation:

Envoyé par Laurent Dardenne

Il y a eu qq changements depuis ;)
Sur l'erreur E2086, tu dois avoir une déclaration forward ou une référence d'unité manquante.

Sur l'erreur E2033 les paramètre passés ne sont pas du même type, je crois.
Indique nous le code ce sera mieux je pense.

Merci de ta réponse,

Je ne sais pas si c'est ce bout de code-là que tu veux, mais je te donne ceux qui correspondent à mes erreurs.

Erreur : E2086
Code:

1 2 3 4 5 type RIEN = ^RIEN; function WinExecAndWait32(FileName:String; Visibility:Integer): Integer; Export; function WinExecNoWait32(FileName:String; Visibility:Integer): Integer; Export;
Erreur : E2033
Code:

1 2 3 4 5 6 7 begin WaitForSingleObject(ProcessInfo.hProcess,INFINITE); GetExitCodeProcess(ProcessInfo.hProcess,Result); CloseHandle(ProcessInfo.hProcess); CloseHandle(ProcessInfo.hThread); end;
Pierre-Luc
06/08/2007, 17h20
Laurent Dardenne
Le type RIEN n'est pas définie, si tu veux typer un pointeur il faut lui donner un type existant sinon utilise directement le type pointer. De plus tu as une déclaration circulaire en utilisant le même nom :
Code:

1 2 3 4 5 MonType=Integer; PRien=^Montype; //Ou PRien=Pointer;
Depuis D3 de nombreuse API système ont été intégré dans la VCL. Vérifie si c'est le cas pour WinExecAndWait32.

Pour l'erreur : E2033 on est pas plus avancé, il nous faut la ligne en erreur, la signature de la procédure en cause et les déclarations des varaibles passées en paramètre.
06/08/2007, 22h05
pi_hellz

Est-ce que tu pourrais m'indiquer à kel endroit je pourrais vérifier si WinExexAndWait32 a été intégré dans VCL et par le fait même, si tu connais des Posts qui traitent des différents packages???
06/08/2007, 22h20
Laurent Dardenne

Si tu disposes d'une version avec les codes sources,
Faire Menu "Chercher"->"Chercher dans les fichiers" sélectionner le répertoire "C:\Program Files\Borland\BDS\4.0\source\Win32" (à adapter selon ton installation)
Puis cocher "inclure les sous-répertoires".
Mais c'était juste pour info et éviter les redondance de code. Par rapport à tes pb ce n'est pas prioritaire, enfin vu de mon écran ;).

Concernant ta question sur les packages je pense pas qu'il en existe, utilise la fonction rechercher sur ce forum.

Concernant l'erreur sur le type RIEN, c'est bon ou pas ?
07/08/2007, 02h51
pi_hellz

Pour la variable rien, le changement que tu m'as faite effectué marche très bien:D

Au niveau de la recherche de WinExexAndWait32 , je n'ai rien trouvé!!

J'avais déjà effectué une recherche sur le forum pour les packages, mais j'avais seulement trouvé de petite affaires ici et là rien de très complet :?

D'après des recherches que j'ai faite, est-ce que ça se peut qui faut que j'ajoute un longword à quelque pars 8O .

Merci

Citation:

Envoyé par pi_hellz

Au niveau de la recherche de WinExexAndWait32 , je n'ai rien trouvé!!

Normal je me suis mélangé les crayons avec external :oops: Donc laisse tomber ce point.

Citation:

Envoyé par pi_hellz

D'après des recherches que j'ai faite, est-ce que ça se peut qui faut que j'ajoute un longword à quelque pars 8O .

Je ne sais pas. Il nous manque le n° de la ligne qui provoque l'erreur dans ce code et les déclarations des varaible utilisées dans l'appel de cette procédure:
Code:

1 2 3 4 5 6 7 8 //? quelle est la déclaration de cette procédure begin WaitForSingleObject(ProcessInfo.hProcess,INFINITE); GetExitCodeProcess(ProcessInfo.hProcess,Result); CloseHandle(ProcessInfo.hProcess); CloseHandle(ProcessInfo.hThread); end;
Extrait de l'aide de BDS 2006
Citation:
Les types des paramètres var originaux et formels doivent être identiques (E2033) Pour un paramètre variable, l'argument réel doit être du type exact du paramètre formel.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 program Produce; procedure SwapBytes(var B1, B2: Byte); var Temp: Byte; begin Temp := B1; B1 := B2; B2 := Temp; end; var C1, C2: 0..255; (*Semblable à byte, mais NON identique*) begin SwapBytes(C1,C2); (*<-- Message d'erreur ici*) end.
Les arguments C1 et C2 ne sont pas acceptables pour SwapBytes, bien qu'ils aient la représentation mémoire exacte et l'intervalle qu'a Byte.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 program Solve; procedure SwapBytes(var B1, B2: Byte); var Temp: Byte; begin Temp := B1; B1 := B2; B2 := Temp; end; var C1, C2: Byte; begin SwapBytes(C1,C2); (*<-- Aucun message d'erreur ici*) end.
Vous avez ainsi à déclarer C1 et C2 comme Bytes pour que cet exemple se compile.

07/08/2007, 14h43
pi_hellz

Oui j'avais compris ce principe-là, mais je crois que mon erreur découle de ma variable ProcessInfo :roll: ( Je ne suis pas sur )

Citation:

unit Execwait;

interface

uses
SysUtils, Windows;

type
PRIEN = Pointer;
function WinExecAndWait32(FileName:String; Visibility:Integer): Integer; Export;
function WinExecNoWait32(FileName:String; Visibility:Integer): Integer; Export;

implementation

function WinExecAndWait32(FileName:String; Visibility:Integer): Integer;
var
zAppName : Array[0..512] of char;
zCurDir : Array[0..255] of char;
WorkDir : String;
StartupInfo : TStartupInfo;
ProcessInfo : TProcessInformation;

begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,zAppName,nil,nil,false,CREATE_NEW_CONSOLE,nil,nil,StartupInfo,ProcessInfo) then
Result := -1
else
begin
WaitForSingleObject(ProcessInfo.hProcess,INFINITE);
Ligne 36 GetExitCodeProcess(ProcessInfo.hProcess,Result);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;
end;

function WinExecNoWait32(FileName:String; Visibility:Integer): Integer;
var
zAppName : Array[0..512] of char;
zCurDir : Array[0..255] of char;
WorkDir : String;
StartupInfo : TStartupInfo;
ProcessInfo : TProcessInformation;

begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,zAppName,nil,nil,false,CREATE_NEW_CONSOLE,nil,nil,StartupInfo,ProcessInfo) then
Result := -1
else
Result := 0;
end;

end.

Mon erreur est à la ligne 36 soit elle qui est en rouge !!
07/08/2007, 22h13
Laurent Dardenne
Sous Delphi 2006
Code:

1 2 3 4 Unit Windos; ... function GetExitCodeProcess(hProcess: THandle; var lpExitCode: DWORD): BOOL; stdcall;
Ta fonction WinExecAndWait32 renvoi un integer au lieu d'un DWord, donc à priori Result pose pb dans l'appel en ligne 36

Code:

DWORD = LongWord;
07/08/2007, 22h28
pi_hellz

Merci Beaucoup, mais dois-je créer une nouvelle fonction

Citation:

Unit Windows; Est-ce que tu voulais dire Unit Execwait
...
function GetExitCodeProcess(hProcess: THandle; var lpExitCode: DWORD): BOOL; stdcall;

Pour ce qui est du Dword = longword, je le place ou exactement, j'ai essayé de le placer, mais je me retrouve avec 4 erreurs au lieu de 2 . ;) .
08/08/2007, 13h31
Laurent Dardenne
Citation:

Envoyé par pi_hellz

mais dois-je créer une nouvelle fonction

Non juste modifier celle-ci :
Code:

1 2 function WinExecAndWait32(FileName:String; Visibility:Integer): DWORD;
Citation:

Envoyé par pi_hellz

mais je me retrouve avec 4 erreurs au lieu de 2.

C'est l'effet domino :mouarf:
Essaie avec cette modification. Pour les autres erreurs il faut vérifier si elles sont liées à ce pb ou pas.
Lance une construction de ton projet tu seras fixé sur leurs nombre.

:yaisse2: Bon ça marche pour ma fonction, mais maintenant j'obtiens cet erreur quand je compile

Citation:

[Pascal Error] ExecWait.pas(33): E1012 Constant expression violates subrange bounds
[Pascal Fatal Error] PImpMuni.pas(7): F2063 Could not compile used unit 'ExecWait.pas'

Cette erreur référe à mon ELSE
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 begin StrPCopy(zAppName,FileName); GetDir(0,WorkDir); StrPCopy(zCurDir,WorkDir); FillChar(StartupInfo,Sizeof(StartupInfo),#0); StartupInfo.cb := Sizeof(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := Visibility; if not CreateProcess(nil,zAppName,nil,nil,false,CREATE_NEW_CONSOLE,nil,nil,StartupInfo,ProcessInfo) then Result := -1 else Begin WaitForSingleObject(ProcessInfo.hProcess,INFINITE); GetExitCodeProcess(ProcessInfo.hProcess,Result); CloseHandle(ProcessInfo.hProcess); CloseHandle(ProcessInfo.hThread);
Merci

08/08/2007, 16h11
Laurent Dardenne

Citation:

Envoyé par pi_hellz

Cette erreur référe à mon ELSE

Non a la ligne précédente.

Citation:

Longword 0..4294967295 32 bits non gné

Je te laisse faire.
13/08/2007, 18h48
pi_hellz
Merci Laurent

Comme que je suis débutant, il a fallu que je cherche pas mal pour trouver mon erreur, ce qui est mieux de seulement me donner la réponse.

J'ai réussi à compiler mon unité mais après ça, c'est le cataclysme 8O.

Citation:

[Pascal Fatal Error] PVisuali.pas(7): F2063 Could not compile used unit 'RPreview.pas'

J'obtiens des erreurs sur les éléments suivant qui d'après me donnent tous les autres erreurs
Code:

1 2 3 4 5 6 uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, RPreview, RPFPrint, RPDefine, RPBase, RPCanvas, RPrinter, StdCtrls, Buttons, ExtCtrls;
Merci beaucoup
14/08/2007, 14h20
Laurent Dardenne

Il se peut que ton appli utilisait un générateur d'état ( RaveReport ?).
Dans ce cas avec Turbo Delphi je ne sais pas commnet faire :? .
14/08/2007, 14h27
pi_hellz

:merci: Beaucoup Laurent pour ton aide, mais je crois que je m'embarque dans quelque chose qui est un peu trop dur pour moi. Donc, je vais parfaire mes connassaince en delphi avant de m'attaquer à ça.8O