Discussion :

[samerkouta]

Bonjour,
comment je peux utiliser des libraries dans un script pascal ??
ex: (uses test)

[samerkouta]

le script connait les syntaxes for et while ....
mais pour utiliser (uses library) comment ??

[Pedro]

Bonjour et bienvenue sur developpez.com
Si tu n'es pas plus précis, personne ne saura répondre
Quels scripts? Quelles libraries?

[samerkouta]

Desole, mais je suis un debutant en Delphi , et je fait un interpreteur pascal pir executer les code pascal, j'ai ajouter un atpascal, et atscript et tous les outils necessaire, et dans le Memo j'ecrit le code en pascal et je tape executer(bouton) et il execute le code dedans, mais j'ai besoin d'utiliser des library ou bien de Units.pas dans le script (Uses Units) ok, et pour utiliser les fonction dedans cette class ou bien library, mais je ne sais pas comment !!!!
le code d'execution est :
atPascalScripter1.SourceCode.Assign(AdvMemo1.Lines);
atPascalScripter1.Compile;

[ShaiLeTroll]

Ah le scripter de TMS, il est plus léger que celui de Dream, mais il faut du coup ajouter bcp de chose à la main ... (il y a nornalement des unités qui te fourni des classes entièrement mappées)

par exemple pour la propriété AsString d'un TField

Code :

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

1
2
3
4
   with Scripter.AddDelphiClass(TField) do
   begin
      Defineprop('AsString', tkString, GetFieldAsStringProc, SetFieldAsStringProc);
   end;

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfEpcDesigner.GetFieldAsStringProc(AMachine: TatVirtualMachine);
begin
   AMachine.ReturnOutputArg(TField(AMachine.currentObject).AsString);
end;
 
procedure TfEpcDesigner.SetFieldAsStringProc(AMachine: TatVirtualMachine);
begin
   TField(AMachine.CurrentObject).AsString := AMachine.GetInputArg(0);
end;

ou alors ajouté une fonction (que soit dans un uses ou dans une dll)

Code :

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

scripter.DefineMethod('pad', 3, tkstring, nil, PadMethod);

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TfEpcDesigner.PadMethod(AMachine: TatVirtualMachine);
var
   s: string;
   t: char;
begin
   s := AMachine.getinputargasstring(0);
   t := AMachine.getinputargasstring(1)[1];
   LPad(s, t, AMachine.getinputargasinteger(2));
   AMachine.returnoutputarg(s);
end;