3D-CRADE WIRE MODELER

Commentaire de jyce3d le 03/06/2008 18:03:42

Bonsoir  Cantador,

Euh non, juste taper <enter> après avoir entré la commande, je viens de recompiler le projet, et la commande semble fonctionner, la syntaxe que tu as utilisé est la bonne.

As-tu un message d'erreur quelconque affiché dans la fenêtre d'output (la fenêtre noire)?

A+,

jyce3d.

Commentaire de jyce3d le 03/06/2008 20:04:50

Re Cantador,

Je viens de revérifier à nouveau, j'ai retéléchargé le projet et ai fait un copier/coller de ta commande. Ca paraît ok.

Toutefois, il y a quelques temps j'avais découvert un problème lié au regional settings (par défaut j'utilisais le '.' comme séparateur décimal), toutefois c'est un problème que j'avais déjà corrigé et j'ai retesté ce cas de figure et ça semble ok aussi.
Toutefois, c'est peut-être un cas de figure que je ne connais pas...

Ce qui m'étonne c'est que tu n'aies rien dans la fenêtre d'output...
Car le code qui détecte une possible commande est le suivant:

procedure TForm3.txtCommandKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var   status:string; i :integer;
        sCommand,sContent:string;
begin
if Key=13 then
begin
  fOutput.Clear;
  if fStatement.Parse(txtCommand.Text,sCommand,sContent)=PARSE_OK then status:='-->DONE' else status:='-->FAILED';
  mmooutput.Lines.Add(txtCommand.text+status);
  if fOutput.count>=1 then
   for i:=0 to foutput.count-1 do
    mmooutput.Lines.Add(foutput[i]);
  txtCommand.Text:='';

  FrmMain.RefreshView;
end;
end;

Au minimum tu devrais avoir le nom de la commande + '--->FAILED'.

Sans vouloir abuser de ton temps, pourrais-tu essayer la commande suivante:
list_var()
Normalement tu devrais voir s'afficher la liste des variables.
Sinon, est-ce que bodysculpt.dpr fonctionne ?

A+

Jyce3d.

Commentaire de SOUMIA le 04/06/2008 00:33:32

ca marche pour moi aussi

très beau travail, bravo

Commentaire de sky7rip le 04/06/2008 16:20:57

La sph?re fonctionne pour moi :) (Delphi2007).

Commentaire de cantador le 04/06/2008 17:00:43

@florenth :
par contre j'ai des exceptions

çà vient du fait qu'à ce moment la forme n'est pas créée (nil)

en revanche sous D7, moi, je n'obtiens rien (?!)

Commentaire de cantador le 04/06/2008 19:13:23

Au fait quel OS utilises-tu ? J'ai testé sous Win2k et WinXP, je n'ai jamais testé sous Vista...

xp sp2 et Delphi7

Euh !? Que veux-tu dire par je n'obtiens rien ? Pas d'exception ou pas de Sphere ?

ni l'un, ni l'autre !

Commentaire de jyce3d le 09/06/2008 09:03:56

@Cantador: J'ai été assez occupé ce wk, toutefois, d'après ce que tu m'expliques (pas de message de status, et pas d'exception lorsque tu presse enter), il m'apparait que la touche enter n'est peut-être interprétée correctement.

Pourrais tu modifier la Unit3.pas (ligne 67), en remplaçant la procedure TForm3.txtCommandKeyDown par celle-ci:
procedure TForm3.txtCommandKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var   status:string; i :integer;
        sCommand,sContent:string;
begin
showmessage(IntToStr(Key));
if Key=13 then
begin
  fOutput.Clear;
  if fStatement.Parse(txtCommand.Text,sCommand,sContent)=PARSE_OK then status:='-->DONE' else status:='-->FAILED';
  mmooutput.Lines.Add(txtCommand.text+status);
  if fOutput.count>=1 then
   for i:=0 to foutput.count-1 do
    mmooutput.Lines.Add(foutput[i]);
  txtCommand.Text:='';

  FrmMain.RefreshView;
end;
end;

Lorsque tu presseras enter, une dialog box devrait t'afficher le contenu ASCII de la touche pressée. Si c'est différent de 13 (ce qui serait normalement étonnant) c'est qu'il y a un truc bizarre.

@Barbichette: merci.

Voilà A+,
jyce3d

Commentaire de jyce3d le 09/06/2008 23:48:02

Salut Cantador,
C'est étrange que l'évènement OnKeyDown ne soit pas activé, j'espère qu'il n'y a pas d'autres évènements non activés...

pour le "if str[length(str)]<>')'", normalement tu ne devrais pas avoir une violation d'accès mais une exception qui devrait te dire ceci : "TCustomParser::ExtractCommand:paranthese missing".
Car 3D-Crade considère que toute commande doit contenir des paranthèse, même si la commande n'a pas d'argument (je sais ça fait un peu C comme approche, même si on est très loin du C ;-) ). Donc comme premier test de validation de la commande, je vérifie déjà que la fin de ligne se termine par ')' si ce n'est pas le cas c'est que la syntaxe est déjà fausse et je remballe une exception (je sais c'est assez brutale comme méthode, mais c'est assez efficace). C'est aussi le cas si tu tapes simplement Enter.
Le parser de "3ve" est un peu moins tatillon sur l'usage des paranthèses (et aussi un peu plus précis sur les test de paranthèses ouvertes ou fermées).
Le mieux serait de retirer la ligne showmessage(inttostr(key)); si tu l'avais ajoutée et de retester avec une commande normale (comme _Sphere(0,0,0,20,20,20) ou list_var() ).

Les sources n'ont pas été modifiées ou mélangées, je les ai tester juste avant de les poster, et je n'ai rien modifier depuis dans les sources postées.
Ceci dit, je ne comprends pas pourquoi certains évènements ne sont pas activés !?

A+
jyce3d

Commentaire de jyce3d le 20/06/2008 14:04:39

Salut Cantador,

Très étrange en effet, et j'avoue ne pas voir d'où cela peut venir, car je suis incapable de reproduire le problème sur ma version. Il me faudrait plus d'information pour pouvoir avoir une idée claire.

Mais le fait que certains évènements ne soient pas activés est déjà en soit pour le moins bizarre.

A+,
Jyce3d.

Commentaire de jyce3d le 21/06/2008 15:36:41

Salut Cantador,

Honnêtement, sur une opération aussi triviale qu'une capture d'évènement clavier, je ne pense pas que ce soit un problème de patch ou de dll (mais je peux me tromper).

Ceci dit, sans vouloir abuser de ton temps, aurais-tu la possibilité de tenter de mettre un break-point, dans la fameuse procédure : procedure TForm3.txtCommandKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
et de voir ce qu'il te dit ?
D'une part si il rentre dedans, d'autre part si tu éxécutes pas à pas voir où il bloque ?

Autre question, lorsque tu démarres l'applis, tu a bien les trois axes du repère orthonormé ?

A+
Jyce3D.