BrainModular

Posted: **24 Nov 2018, 17:14**

Hey all.

Was wondering if there was a script or something to get my current screen resolution and preferably spit it out as a numerical output?

Posted: **26 Nov 2018, 20:12**

not currently, but maybe a script guru can create one for U

Posted: **26 Nov 2018, 23:55**

maybe try this one:

(paste all in empty script and press compile and init, then 'get rez' button)

Code: Select all

//////////////////////////////&#58;
//////////////////////////
// Extract rez from usine log           
/////////////////////////                                                          
// declaration                                                            
var refresh,textOut &#58; Tparameter;     
var Xout, Yout &#58; Tparameter;
     
var st   &#58; TStringList;       
                                                                        
// initialisation &#58; create parameters
procedure init;
var i &#58; integer;                         
begin  
  refresh &#58;= CreateParam&#40;'get_rez',ptButton&#41;;                              
  SetIsOutPut&#40;refresh,false&#41;;  
  
  textOut &#58;= CreateParam&#40;'text',ptTextField&#41;;
  SetIsInPut&#40;textOut,false&#41;;      
                         
  Xout &#58;= CreateParam&#40;'X',ptdataField&#41;;
  SetIsInPut&#40;Xout,false&#41;;     
  Yout &#58;= CreateParam&#40;'Y',ptdataField&#41;;
  SetIsInPut&#40;Yout,false&#41;;  
  
end; 
              
// read                          
procedure ReadTextFile;      
var all &#58; string; 
var line &#58; string;
var position &#58;  integer;   

begin
  st.create;                      
  st.clear;     

  st.loadfromFile&#40;GetApplicationPath + 'LogUsine.log'&#41;;  
  all &#58;= st.GetCommaText;                                                                                                                                                                     
  position &#58;=  pos&#40;'Resolution',all&#41;;    
                                                     
  if&#40;position>0&#41; then begin  
   position &#58;= position+11; 
   SetStringValue&#40;textOut, copy&#40;all, position, 9&#41;&#41;; 
   line  &#58;= copy &#40;all, position, 4&#41;;  
   SetValue&#40;Xout, strtoint&#40;line&#41;&#41;;                     
   line  &#58;= copy &#40;all, position+5, 4&#41;;  
   SetValue&#40;Yout, strtoint&#40;line&#41;&#41;; 
  end;
  
 // itrace&#40;position&#41;;
               
  st.free;         
end;        
 
// Callback
procedure callBack&#40;n&#58;integer&#41;;
begin   
  if n=0
  then 
  ReadTextFile;
end;

Posted: **27 Nov 2018, 18:14**

23fx you are a genius! This is perfect. Exactly what I was thinking! Taking the log that Hollyhock makes and reading the string text directly from it! You are the man!

Posted: **27 Nov 2018, 22:33**

cool if usefull

Posted: **28 Nov 2018, 07:51**

GREAT ! thanks 23fx

Posted: **28 Nov 2018, 12:19**

note that can only work if resolution is set before launching usine, as log is created here,
will not work if changing res while usine is already launched, but maybe possible with sdk im not sure, ill try to have a look.

Posted: **19 Mar 2021, 03:58**

Hmm...Doesn't seem to want to work anymore. I tried revisiting an old project and got an error on line 6 column 21. Can't make heads or tails of the code. Please help with update?

Posted: **19 Mar 2021, 19:53**

this code works on:

Code: Select all

//////////////////////////////
//////////////////////////

/////////////////////////                                                          
// declaration                                                            
var refresh,textOut: Tparameter;     
var Xout, Yout : Tparameter;
     
var st   : TStringList;       
                                                                        
// initialisation create parameters
procedure init;
var i : integer;                         
begin  
  refresh := CreateParam('get_rez',ptButton);                              
  SetIsOutPut (refresh,false);  
  
  textOut := CreateParam('text',ptTextField);
  SetIsInPut(textOut,false);       
                         
  Xout := CreateParam('X',ptdataField);
  SetIsInPut( Xout,false);     
  Yout := CreateParam('Y',ptdataField);
  SetIsInPut(Yout,false);  
  
end; 
              
// read                          
procedure ReadTextFile;      
var all : string; 
var line : string;
var position : integer;   

begin
  st.create;                      
  st.clear;     

  st.loadfromFile(GetApplicationPath + 'LogUsine.log');  
  all := st.GetCommaText;                                                                                                                                                                     
  position :=  pos('Resolution',all);    
                                                     
  if (position>0) then 
  begin
   position := position+11; 
   SetStringValue(textOut, copy(all, position, 9)); 
   line  := copy (all, position, 4);  
   SetValue(Xout, strtoint(line));                     
   line  := copy (all, position+5, 4);  
   SetValue(Yout, strtoint(line)); 
  end;
  
              
  st.free;         
end;        
 
// Callback
procedure callBack(n : integer);
begin   
  if n=0
  then  ReadTextFile;
end;

Posted: **31 Mar 2021, 23:17**

Thank you very much Senso! Very slight correction to your code:

st.loadfromFile(GetApplicationPath + 'LogUsine.log');

should be

st.loadfromFile(GetApplicationPath + '/LogUsine.log');

the format was a bit off and was spitting back an error.

Quick follow up question: is there any way to just simply print the GetApplicationPath?

Posted: **01 Apr 2021, 09:37**

what do you mean by "print"?

Posted: **14 Apr 2021, 23:28**

i would like to use the PC path that usine is on as a string text to call up and execute .bat files. So instead of resolution, I get "C:/Program Files/Usine Hollyhock/". Then I am able to add the .bat file that is in one of the folders and execute that way by calling up the path and then inserting the command. Hope that helps...

Posted: **16 Apr 2021, 20:50**

not sure to understand,maybe you could take a look on
https://www.brainmodular.com/manuals/hh ... usine-path

BrainModular

Screen Resolution Script

Re: Screen Resolution Script

Re: Screen Resolution Script

Re: Screen Resolution Script

Re: Screen Resolution Script

Re: Screen Resolution Script

Re: Screen Resolution Script