Discussion :

[crazyinf]

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]

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]

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]

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]

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

[Rekin85]

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]

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]

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]

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]

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

[khaled-benloucif]

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]

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

[khaled-benloucif]

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]

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

[e-ric]

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]

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]

Salut
Merci Paul TOTH, je vais essayer votre solution.

[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.

[Fxg]

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]

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...