Problème avec l'assembleur

**crazyinf** · 30/03/2009, 21h16

Salut
Je débute sous l'environnement Delphi 5,et je veux utiliser l'assembleur dedans.
J'ai déjà essayer de faire ça:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
Asm
mov ah, 2
mov dl, 'a'
int 21h
end;
end;
end.

Mais rien du tout , et il m'affiche un message d'erreur.

**PANORAMIC** · 30/03/2009, 21h25

D'après ton code, tu veux utiliser une fonction du DOS sous Windows...
Imprimer (AH = 2) le caractère 'a' (en DL)
Ouille...
Âïe...

Invité1 · 31/03/2009, 09h05

bonjour

si tu es sous Windows XP ça ne marchera pas

meme moi j'ai essayé un code assembleur et rien

bonne chance

**Paul TOTH** · 31/03/2009, 09h52

Envoyé par samy larson

bonjour

si tu es sous Windows XP ça ne marchera pas

meme moi j'ai essayé un code assembleur et rien

bonne chance

sous XP ou sous n'importe quoi d'autre, Delphi compile du code Intel en mode protégé...l'interruption 21h n'a pas de sens dans ce contexte.

**crazyinf** · 31/03/2009, 19h34

Salut
Mais si int 21 h ça na rien a avoir,comment puis je afficher un texte sur l'écran.
Merci d'avance.

**Rekin85** · 31/03/2009, 20h59

L'appel des interruptions du Bios ou du Dos, c'était bien du temps du... Dos et de Windows avant XP quand il y avait encore un Dos exploitable.

Alors pour écrire du texte : les routines Delphi ne suffisent pas ?

**e-ric** · 31/03/2009, 22h19

Salut

J'ai l'impression que tu n'as pas fait de programmation depuis un certain temps ou tu as lu des docs disons âgées... ou enfin tu reprends une application DOS à porter sous Delphi (dans ce cas bon courage, tu n'as plus qu'à tout réécrire).

Pour afficher un message à l'écran tu peux essayer :

Code :

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

1
2
 
  ShowMessage('Coucou !');

C'est d'un intérêt assez limité. Il vaudrait mieux savoir ce que tu veux vraiment faire.

Cdlt

**crazyinf** · 31/03/2009, 22h48

Salut
Merci e-ric, mais je veux intégrer un code en assembleur qui me permet d'écrire un message a l'écran et ceci dans le code Delphi.
Merci d'avance.

**khaled-benloucif** · 31/03/2009, 23h15

si tu peux préciser un peut tu désigne quoi par le terme "message"?
tu veux afficher: une boite de dialogue? du texte sur l'écran? message sous invite de commande?

**crazyinf** · 31/03/2009, 23h23

salut
Je veux afficher du texte sur l'écran, en utilisant l'assembleur.
Merci d'avance.

**khaled-benloucif** · 31/03/2009, 23h27

La réponse n'est pas claire. tu veux dessiner du texte sur l'écran? sur le bureau par exemple? ou tu veux dessiner du texte sur ta fiche?

**crazyinf** · 31/03/2009, 23h35

Salut
je veux veux dessiner du texte sur l'écran.
Merci de votre patience.

**khaled-benloucif** · 31/03/2009, 23h44

je vois mal comment le faire en assembleur, mais en revanche en passant par la GDI possible (utiliser une variable de type TCanvas et GetWindowDC) par exemple!

**crazyinf** · 31/03/2009, 23h49

Salut
Merci khaled-benloucif,je cherche le code en assembleur.

**e-ric** · 01/04/2009, 07h35

Salut

En fait ce que tu demande n'est pas coutumier avec Delphi. L'environnement de Windows impose pour afficher à l'écran de passer par des fonctions déjà définies (les API), qui rendent le travail plus facile car elle sont indépendantes du matériel.

Tu peux sans doute appeler ces API depuis des routines en assembleur mais cela ne t'apportera pas grand chose. L'usage de l'assembleur est en général réservé à des aspects plus "calcultatoires".

En ce qui concerne le code assembleur, je n'en ai pas fait depuis la fac et cela commence à dater. En tout cas, je n'en ai pas fait avec Delphi.

Cdlt

**Paul TOTH** · 01/04/2009, 09h42

Envoyé par crazyinf

salut
Je veux afficher du texte sur l'écran, en utilisant l'assembleur.
Merci d'avance.

il va falloir te montre un peu plus imaginatif

Etape 1 :

Code :

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

1
2
3
4
5
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  MessageBox(0, 'Hello', 'Titre', 0);
end;

Etape 2: en mode debug un break point sur le ShowMessage et on affiche la fenêtre CPU

Code :

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

1
2
3
4
5
6
 
 push $00
 push $0043e348
 push $0043e350
 push $^00
 call MessageBox

Etape 3 : reproduire le code en ASM

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//  MessageBox(0, 'Hello', 'Titre', 0);
  asm
    push 0
    push OFFSET @Title
    push OFFSET @Msg
    push 0
    call MessageBox
    jmp @Done
    @Msg:
     db 'Hello',0
    @Title:
     db 'Titre',0
    @Done:
  end
end;

Nb: et oui, sous Windows on invoque l'API Windows, pas les interruptions

**crazyinf** · 01/04/2009, 21h40

Salut
Merci Paul TOTH, je vais essayer votre solution.

**crazyinf** · 04/04/2009, 15h33

Salut
Merci Paul TOTH, ça marche ,mais j'ai un autre problème,comment utiliser
l'API windows pour réaliser le test de la souris int 33h et du clavier int 16h,
car je veux tester s'il y a une frappe au clavier ou non, ou bien un clic de souris.
je cherche aussi de la documentation sur les API sous Delphi, est ce que vous connaissez quelques liens utile.
Merci d'avance.

**Fxg** · 04/04/2009, 21h30

En utilisant l'évènement OnKeyDown par exemple.

SI je peux me permettre de te donner un petit conseil, replonge toi un peu dans des doc pour te mettre dans l'espris de la programmation en delphi sous Windows.
Tu trouveras ton bonheur sur le site

**Paul TOTH** · 06/04/2009, 12h15

Envoyé par crazyinf

Salut
Merci Paul TOTH, ça marche ,mais j'ai un autre problème,comment utiliser
l'API windows pour réaliser le test de la souris int 33h et du clavier int 16h,
car je veux tester s'il y a une frappe au clavier ou non, ou bien un clic de souris.
je cherche aussi de la documentation sur les API sous Delphi, est ce que vous connaissez quelques liens utile.
Merci d'avance.

STOP ! Delphi permet de programmer SOUS WINDOWS, pas sous DOS.

Si tu veux jouer avec l'API DOS tu peux toujours télécharger Turbo Pascal et reprendre la bonne vieille programmation par interruption.

Sous Windows, l'interaction avec le système d'exploitation se fait via des appels à des fonctions chargées dynamiquement par LoadLibrary/GetProcAddress ou statiquement dans les headers du .EXE

Souris -> GetCursorPos
Clavier -> GetKeyboardState

Toutes ces fonctions sont définies dans Windows.pas (liaison statique), tu peux faire F1 sur une des fonction pour obtenir l'aide en ligne du SDK Microsoft.

Ceci dit, la programmation sous Windows ne peut pas se faire sans la gestion des événements (équivalent des IRQ du DOS) qui sont déclenchés par l'OS pour indiquer un déplacement de souris, une nécessaire de redessiner l'écran, etc...etc...

Problème avec l'assembleur

Langage Delphi

Discussions similaires

Partager

Partager