Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1670 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  [TURBO PASCAL] Comment imprimer un dessin ? [Résolu]

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[TURBO PASCAL] Comment imprimer un dessin ? [Résolu]

n°412343
Pizz
Vive les Tomates !
Posté le 01-06-2003 à 22:23:41  profilanswer
 

salut,
 
j'ai fait sous Turbo Pascal 7, un dessin (représentation d'un volume en perspective cavalière) et j'aimerai imprimer ce dessin. Mais je n'y arrive pas :(
 
J'aimerai faire un copier-coller mais ça ne fonctionne pas  :(  
 
 
pour le dessin, j'utilise
 


g:=detect;
initgraph (g,grapmode,'c:\tp\bgi');


 
Si quelqu'un a une solution, merci  :jap:


Message édité par Pizz le 02-06-2003 à 11:31:54

---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
mood
Publicité
Posté le 01-06-2003 à 22:23:41  profilanswer
 

n°412359
verdoux
And I'm still waiting
Posté le 01-06-2003 à 23:03:46  profilanswer
 

C'est pas gagné :D

n°412388
Pizz
Vive les Tomates !
Posté le 02-06-2003 à 00:30:10  profilanswer
 

verdoux a écrit :

C'est pas gagné :D


 
arf  :cry:  
 
 
s'il y avait un moyen d'avoir l'écran qui apparaît avec le dessin, en fenêtre au lieu de plein écran, je pourrai faire une capture ...
 
help  :cry:


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
n°412435
Pizz
Vive les Tomates !
Posté le 02-06-2003 à 09:04:09  profilanswer
 

sinon, si il y a moyen d'adapter mon programme sur Delphi 4 ou DevPascal ou Kylix 3 (sous Linux) ...
 
n'importe quoi tant que j'arrive à imprimer ou du moins, faire une capture d'écran  :cry:  
 
PS : je n'ai pas d'APN, juste une webcam (j'ai déjà essayé, c'est trop pourri).
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
n°412448
antp
Super Administrateur
Champion des excuses bidons
Posté le 02-06-2003 à 09:38:26  profilanswer
 

C'est un programme DOS ? Si oui je pense que tu peux oublier Delphi/Kylix


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°412459
Pizz
Vive les Tomates !
Posté le 02-06-2003 à 09:47:14  profilanswer
 

antp a écrit :

C'est un programme DOS ? Si oui je pense que tu peux oublier Delphi/Kylix


 
oui
 
mais avec les sources, il n'y a pas moyen de faire quelque chose ?
 
genre rajouter un truc qui permette de sortir le dessin en bmp par exemple ...
 
il doit bien y avoir une petite solution ...
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
n°412461
antp
Super Administrateur
Champion des excuses bidons
Posté le 02-06-2003 à 09:49:33  profilanswer
 

Le problème c'est que Delphi est incapable de faire un programme DOS, et donc les librairies graphiques de Turbo Pascal n'y existent plus.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°412463
Pizz
Vive les Tomates !
Posté le 02-06-2003 à 09:54:13  profilanswer
 

antp a écrit :

Le problème c'est que Delphi est incapable de faire un programme DOS, et donc les librairies graphiques de Turbo Pascal n'y existent plus.


 
il y a moyen d'apdater ?
 
dans mon programme je n'utilise que des "putpixel", des "line" et des "outtextxy".
 
donc, je ne fais que des lignes, et je mets que des points. (+ du texte, mais c'est moins important).
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
n°412465
antp
Super Administrateur
Champion des excuses bidons
Posté le 02-06-2003 à 09:55:45  profilanswer
 

bah y a toujours moyen, mais bon tu devras modifier tout ça pour aller écrire sur le Canvas d'un TImage par exemple (zone d'image sur une fenêtre).
C'est peut-être pas si compliqué en fait, et là aucun problème pour imprimer ou sauver en bmp à priori...


Message édité par antp le 02-06-2003 à 09:56:04

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°412468
Pizz
Vive les Tomates !
Posté le 02-06-2003 à 09:58:08  profilanswer
 

antp a écrit :

bah y a toujours moyen, mais bon tu devras modifier tout ça pour aller écrire sur le Canvas d'un TImage par exemple (zone d'image sur une fenêtre).
C'est peut-être pas si compliqué en fait, et là aucun problème pour imprimer ou sauver en bmp à priori...


 
c'est peut-être pas compliqué pour toi, mais pour moi ...
 
j'ai déjà travaillé sous Delphi, mais je n'ai jamais fait des lignes, des points ... j'ai surtout fait des trucs comme une calculatrice ...
 
Si tu sais m'aider ça serait génial  :jap:  
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
mood
Publicité
Posté le 02-06-2003 à 09:58:08  profilanswer
 

n°412471
antp
Super Administrateur
Champion des excuses bidons
Posté le 02-06-2003 à 10:04:56  profilanswer
 

La plupart des composants ont une propriété Canvas.
par ex le TImage.

Code :
  1. with Image1.Canvas do
  2. begin
  3.   MoveTo(100, 100);
  4.   Pen.Color := clRed;
  5.   LineTo(300, 100);
  6.   Pen.Color := clBlue;
  7.   LineTo(150, 150);
  8.   Font.Color := clGreen;
  9.   Font.Size := 18;
  10.   TextOut(150, 200, 'bouh !');
  11. end;


 
te donne ça :
http://www.antp.be/temp/delphicanvas.png
 
puis pour imprimer :
 

Code :
  1. if PrintDialog1.Execute then
  2.   begin
  3.     Printer.BeginDoc;
  4.     Printer.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height), Image1.Canvas, Rect(0, 0, Image1.Width, Image1.Height));
  5.     Printer.EndDoc;
  6.   end;


(ici ça copie bêtement le dessin vers l'imprimante, donc l'échelle est peut-être pas conservée)


Message édité par antp le 02-06-2003 à 10:10:08

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°412478
Pizz
Vive les Tomates !
Posté le 02-06-2003 à 10:09:47  profilanswer
 

merci bcp  :jap:  
 
j'installe Delphi 4 (pas tout jeune ...) et j'essaye.
 
 
Vive la Belgique  :D


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
n°412479
antp
Super Administrateur
Champion des excuses bidons
Posté le 02-06-2003 à 10:10:34  profilanswer
 

j'ai édité pour ajouter un exemple pour imprimer ;)


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°412488
Pizz
Vive les Tomates !
Posté le 02-06-2003 à 10:19:07  profilanswer
 

tu sais me donner tout ton Unit1.pas ?
 
pour que je puisse commencer parce que je suis nul ...
 
merci  :jap:


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
n°412489
Pizz
Vive les Tomates !
Posté le 02-06-2003 à 10:20:05  profilanswer
 

ah non, ça va, j'ai oublié un end;  :whistle:  
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
n°412617
Pizz
Vive les Tomates !
Posté le 02-06-2003 à 11:31:32  profilanswer
 

Merci bcp  :love: antp  :love:  pour ton aide, j'arrive à faire le dessin sous delphi et j'arrive à imprimer  :D  
 
Merci bcp  :jap:  
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
n°412618
antp
Super Administrateur
Champion des excuses bidons
Posté le 02-06-2003 à 11:32:06  profilanswer
 

déjà ? he bhe ça a été rapide :D
content d'avoir pu t'aider ;)


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°412623
Pizz
Vive les Tomates !
Posté le 02-06-2003 à 11:37:59  profilanswer
 

antp a écrit :

déjà ? he bhe ça a été rapide :D
content d'avoir pu t'aider ;)


 
oui, il suffit simplement de modifer les line(..) en lineto(..), les putpixel(..) en pixels[..], les outtextxy(..) en textout(..) ...
 
plus 2-3 autres trucs.
 
 
Encore merci de ton aide compatriote :D  
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  [TURBO PASCAL] Comment imprimer un dessin ? [Résolu]

 

Sujets relatifs
[PHP] Exécuter des commandes en tant que root [Résolu][Javascript] window.print() et choix de ce qu'on veut imprimer
[postgresql] [resolu] Probleme de language SQLPause en Java [ Résolu]
Modifier l'imprimante par défaut ! : RESOLU: voila le code ![RESOLU] kestion a la kon : recherche de String ds un FILE
Comment faire une fortune sur un site ? | résolu (code complet)[MFC VC++6] Erreur de link... [résolu]
Imprimer un DIV[MFC VC++6]Mettre en barre de tache au démarrage...[résolu]
Plus de sujets relatifs à : [TURBO PASCAL] Comment imprimer un dessin ? [Résolu]

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.040 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR