absolute en Delphi

Version imprimable

29/10/2005, 11h51
ADMR

absolute en Delphi

En Tp7 j'utilisais cette syntaxe pour lire les matrice de points définissant les caractères.

var table: array[0..127] of array [1..8] of byte absolute $F000:$FA6E;

Cela ne fonctionne plus en Delphi, probablement car la gestion de la mémoire à changée.
Mais comment convertir l'addresse?
De plus, peut on esperer une pérennité de la présence de cette table dans les nouveaux PC
29/10/2005, 12h20
tourlourou
la directive absolute existe toujours, pour faire pointer une seconde variable au même endroit qu'une première :
Code:

1 2 3 var c : char; b : byte absolute c;
tu peux donc essayer de faire pointer ta structure sur la variable table de caractères
29/10/2005, 13h37
ADMR

Oui bien sur sous cette forme...Mais pas pour pointer à une adresse précise en mémoire

Merci pour la réponse
ADMR

pour pointer sur une adresse :

Code:

1
2
3
4
5
var 
 table : array[1..10] of word;
begin
 table := Pointer($F000FA6E); 
end;

Cela ne fonctionne pas, le probleme semble etre la conversion de l'adresse. A l'époque j'utilisais sans comprendre ces histoire d'offset et de segment .
Le code suivant plante brutalement:
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.Button1Click(Sender: TObject); type table= array[0..127] of array [1..8] of byte; var ta:^table; co,li:integer; Begin ta:= ptr($F000FA6E); For li:=1 to 8 do for co :=1 to 8 do If (ta^[36,li] and ($100 shr co)) <>0 then form1.memo1.lines[li]:=form1.memo1.lines[li]+'*' else form1.memo1.lines[li]:=form1.memo1.lines[li]+' '; end;
[Modération]
Merci d'utiliser les balises code ou quote, Laurent Dardenne
[/Modération]

29/10/2005, 17h05
TicTacToe
mais la vraie question, c'est pourquoi veut-tu pointer à un endroit précis de la mémoire ?
Dans le monde dos effectivement, il y avait des zones mémoires ou trainaient des tables diverses et variées sytème, ou bien pour adresser la mémoire vidéo (avec l'histoire des segments et offset pour palier à l'augmentation de la mémoire qui dépassait 64Ko).
Maintenant sous Windows, je ne connais pas l'organisation précise, mais l'adressage se fait sur 32bits, (donc plus vraiment d'offset nécessaire), et de surcroit, les zones mémoires de ton prog. sont attribués automatiquement par windows, il n'y a pas de raison pour l'adresse directement. Sauf à récuperer l'adresse d'une allocation faite de manière standard:
Code:

1 2 3 4 5 var T: array[0..128] of byte p: pointer; begin p := @(T[ 0 ] );
p est le début de ta zone mémoire de ton tableau, mais finalement, l'endroit précis n'est pas important
29/10/2005, 18h06
ADMR

Le but est de réaliser un afficheur ASCII et hexadécimal dans un logiciel de simulation logique pour simplification de ceux existants (Logi). Je veux récupérer la génération des caractères ASCII.A priori il doit etre possible de lire n'importe quel octet en mémoire en Delphi (Rom ou Ram) ?
29/10/2005, 18h30
TicTacToe

Je ne comprend toujours pas...

Réaliser un afficheur ASCII ou HEXA OK

Dans un logiciel de simulation logique.... que tu as fais ?

Récupérer la génération des car. ASCII ... ? depuis le log de simul ?
c'est donc une function ?

Non vraiment je capte pas le probleme, désolé
29/10/2005, 19h56
Nono40

Citation:

Envoyé par ADMR

Le but est de réaliser un afficheur ASCII et hexadécimal dans un logiciel de simulation logique pour simplification de ceux existants (Logi). Je veux récupérer la génération des caractères ASCII.A priori il doit etre possible de lire n'importe quel octet en mémoire en Delphi (Rom ou Ram) ?

Non. XP va te l'interdire...
30/10/2005, 00h18
ADMR

Merci pour les réponses. J'ai repris mon Tp7 , sauvegardé la table des caractères dans un fichier et ensuite je l'ai intégré à mon programme.

Voila le résultat pour $

__$$____
_$$$$$__
$$______
_$$$$___
____$$__
$$$$$___
__$$____
________ :D
30/12/2009, 17h02
mima_mine
Bonjour tous le monde

si par exemple j'ai l'exemple suivant
Code:

1 2 3 c:char; b:byte absolute c;
que'es ce que je dois faire pour remplacer cette syntaxe par une autre ?!!

veut dire : remplacer le absolute par une autre syntaxe !!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
type
  TByteChar = packed record
    case integer of
      0: (C : AnsiChar);
      1: (B : Byte);
  end;
 
 
type
  TBytesChars = packed record
    case integer of
      0: (Cs : array[Byte] of AnsiChar);
      1: (Bs : array[Byte] of Byte);
  end;

03/01/2010, 12h02
mima_mine
merci pour votre reponse
j'ai essayé de proposer cette solution
Code:

1 2 3 4 5 6 7 8 9 var c: char; b: ^byte; begin b := @c; ...
juste pour éviter d'utiliser absolute... je sais qu'il existe plusieurs solution, mais es-ce que ma solution est juste ?

mon but est de préparer un help à mon projet, qui traite les bonne pratique de Delphi, parmis eux une qui parle sur "absolute", donc je dois proposer un exemple à l'utilisateur ;)
03/01/2010, 16h27
Andnotor

Tu ne peux pas simplifier absolute puisque c'est la solution ultime pour interpréter une zone mémoire de plusieurs façons différentes tout en restant évolutif en fonction des besoins.

Le record avec case de Dr. Who est très bien mais requière dés la déclaration dans connaître toutes les variantes. C'est cependant ce qui se rapprocherait le plus d'absolute dans la gestion de l'adressage. Quant à ton exemple, il requière une assignation. La déclaration ne suffit pas ;).

ps: Propose un autre exemple qu'un char en byte qui ne fonctionnera que jusqu'à D2007...
10/01/2010, 09h50
mima_mine

Merci pour votre aide :ccool: