Remplacement de la procédure SetInOutRes de Delphi

**Roland Chastain** · 23/11/2015, 11h26

Bonjour !

J'ai voulu retoucher l'unité Console de Rudy Velthuis (qui est une réplique de l'unité Crt) pour la rendre compatible avec Free Pascal.

http://rvelthuis.de/programs/console.html

Voici les trois modifications que j'ai faites. Je précise que j'ai compilé en mode Delphi.

Code :

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

1
2
3
4
5
6
7
  //ScrollConsoleScreenBufferA(StdOut, Rect, @Rect, NewPos, Fill); // Error: Incompatible type for arg no. 3: Got "Pointer", expected "SMALL_RECT"
  ScrollConsoleScreenBufferA(StdOut, Rect, Rect, NewPos, Fill);
 
  //ReadPtr := T.BufPtr; // Error: Incompatible types: got "TextRec.^TextBuf" expected "PChar"
  ReadPtr := PAnsiChar(T.BufPtr);
 
  //SetInOutRes(GetLastError); // Error: Identifier not found "SetInOutRes"

Je pense que les deux premières corrections sont bonnes. En revanche je n'ai pas trouvé de remplacement pour la procédure SetInOutRes() qui (si j'ai bien compris) permet de régler la valeur de la variable (?) IOResult. Auriez-vous une idée ?

**anapurna** · 23/11/2015, 16h52

salut

cette fonction ne sert qu'à remettre à zéro le code erreur des entrées\sorties

cela revient un peu à faire IOResult := 0;

**Jipété** · 23/11/2015, 17h06

Salut Roland,

Envoyé par Roland Chastain

Auriez-vous une idée ?

Aucune !
Suis allé farfouiller dans mes vieilles sources .pas, Windows comme SysUtils, et cette procédure n'y est pas...

Je pense que c'est le moment d'écrire à l'auteur.

**anapurna** · 23/11/2015, 17h40

resalut

non c'est dans system.pas pour delphi

**Roland Chastain** · 23/11/2015, 18h26

Merci pour vos réponses. Vu l'endroit où l'instruction est placée, j'ai l'impression qu'elle ne sert pas à grand chose. En tout cas la valeur de IOResult n'est jamais utilisée dans l'unité. Peut-être l'idée est-elle que le programme utilisant l'unité puisse lire la valeur de IOResult en cas d'échec de l'ouverture de la console. Mais bon, comme ça n'échoue jamais...

**Jipété** · 23/11/2015, 19h27

Envoyé par anapurna

resalut

non c'est dans system.pas pour delphi

Rhôôô, c'est la meilleure, celle-là

Extraits du console.pas :

Code :

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

1
2
3
4
5
6
7
interface
 
uses Windows;
 
implementation
 
uses SysUtils;

Comment t'as fait pour deviner que c'était dans system.pas ? Ou alors cette unité est incluse par défaut ?

Et voilà tout ce qu'on trouve à ce propos dans le system.pas de mon vieux D3 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure SetInOutRes;
asm
        PUSH    EAX
        CALL    SysInit.@GetTLS
        POP     [EAX].InOutRes
end;
 
procedure InOutError;
asm
        CALL    GetLastError
        JMP     SetInOutRes
end;