DLL con SaveDialog

[Simon75]

Così funziona ho dovuto togliere gli else
 quindi:

Codice: [Seleziona]

Procedure Calculate(PInput,POutput,PUser: PDLLParams); // Routine è permanente


   begin

       if  PInput^[I0] >2.5 then ApriOpenDialog;

       if  PInput^[I1] >2.5 then ApriSaveDialog;

       If  PInput^[I0] >2.5 then POutput^[Q0]:=5;

        If  PInput^[I1] >2.5 then POutput^[Q1]:=5;



      // piu funzioni


end; 

Ma rimane sempre il problema che a volte si bloccano i pulsanti se clicco veloce si apre e si chiude regolare, basta che lo tengo un po troppo premuto si blocca

[Stilgar]

Il fatto che si blocchi, può avere varie cause.
1) Il programma si impalla di suo.
2) La dll si incasina con la creazione e distruzione del dialogo.

Metti i vari dialoghi in una variabile "globale".
Controlli se la variabile è già stata istanziate

Codice: [Seleziona]

 
  if not assigned(dialogoxxx) then
  begin
    dialogoxxx := TDialog.create(...);
    ...
    FreeAndNil(dialogxxx);
  end;

In questo modo il codice apre il dialogo solo se non è già stato aperto.
Quindi la variabile del dialogo ti funge da ... "semaforo".

Stilgar

[Simon75]

Domanda n 1

Allora quando apro uno dei due dialoghi si accende il led rispettivo al diagolo chiamato, ma quando clicco su annulla o sulla x i led rimangono sempre accesi.
Domanda: come faccio a resettare il controllo ovvero l'uscita POutput^[Q0] quando clicco su annulla o sulla X dei dialoghi?

Codice: [Seleziona]

 If  PInput^[I0] >2.5 then POutput^[Q0]:=5;

Domanda n2

Ho tolto le variabili locali e le ho messe globali, praticamente solo una poiché è la stessa.

Codice: [Seleziona]

 var pannello: TOpenDialog;


type TDLLParams = array[0..100] of Extended; //Type of ProfiLab DLL parameters
     PDLLParams = ^TDLLParams;               // Pointer to ProfiLab DLL parameters





     function ApriSaveDialog: ShortString;

     begin
        pannello :=  TSaveDialog.Create(nil);
        try
           pannello.Filter:='*.txt';
           if pannello.Execute then
              result := pannello.FileName
           else
              result := '';
        finally
           pannello.Free;
        end;
        end;


function ApriOpenDialog: ShortString;

begin
   pannello :=  TOpenDialog.Create(nil);
   try
      pannello.Filter:='*.txt';
      if pannello.Execute then
         result := pannello.FileName
      else
         result := '';
   finally
      pannello.Free;
   end;
   end; 
  

Ora il codice che mi hai indicato lo devo inserire in Calculate?

Codice: [Seleziona]

Procedure Calculate(PInput,POutput,PUser: PDLLParams); // Routine è permanente
   
if not assigned (ApriOpenDialog) then

   begin

ApriOpenDialog:= TDialog.create(...); qua cosa metto?       
...         qui cosa metto?
    FreeAndNil(ApriOpenDialog);

  end;


      // piu funzioni


end;                                   

Domanda n 3

Esiste un modo per evitare che la schermata del dialogo vada sotto il programma che sto usando?
Cerco di spiegarmi a volte capita che clicco fuori dalla finestra di dialogo e quindi il dialogo a sua volta finisce sul desktop quindi sotto il programma allora devo chiudere sulla - per riprenderlo e chiuderlo

Ciao

[Stilgar]

Risposta 1 :

Codice: [Seleziona]

POutput^[Q0]:=0;
If  PInput^[I0] >2.5 then POutput^[Q0]:=5;

Risposta 2:
Esattamente la stessa cosa in entrambe le funzioni. Solo che una è chiamata dal primo pulsante e l'altra dal secondo ... ma se fanno la stessa cosa, potrebbe essere il caso di avere una sola funzione... no?

Risposta 3:
Il dialogo, per essere modale ha bisogno di una finestra "padre", mettendo nil, dici che non ha padre ed è autonoma, per cui non può essere modale sull'applicazione chiamante.
Per fare in modo che abbia un "padre", devi avere un'istanza dell'applicazione chimanate (in genere è nella "main dll" che ti viene passato quel parametro, ma in freepascal non conosco la prassi per lavorare con questi parametri, in C++ della Microsoft è una cosa "abbastanza semplice")

[Stilgar]

Per la prima risposta ... piccola cazzatina, ho messo in pulldown il dato ... tu lo lasciavi flottante, ma in informatica è l'ultima scrittura che comanda il dato in memoria. Nessuno azzera quella cella (se non all'inizio il sistema di inizializzazione automatica), per cui l'effetto è di lasciare il led acceso.
Sempre che sia riuscito ad interpretare correttamente il comportamento che ottenevi.

Stilgar

[Simon75]

Per la prima risposta ... piccola cazzatina

Così semplice che neanche si accendono i led se metto questo:

Codice: [Seleziona]

POutput^[Q0]:=0;

Stilgard dovrebbero promuoverti super moderatore, poiché sei il più attivo di tutto il forum 

[Stilgar]

Allega tutto il codice ad un post ... sta diventando un macello seguire con i pezzetti l'evoluzione del sorgente

[Legolas]

Infatti
Per sfizio ho scaricato la demo di ProfiLab, se Simon75 mette il codice della dll posso provare a buttarci un occhio anche io

[Simon75]

Eccomi ecco il codice...                 

Codice: [Seleziona]

library dialog;

{$mode objfpc}{$H+}

uses
   Interfaces, Classes, SysUtils, Windows, FileUtil, Forms, Controls,
Graphics, Dialogs;
   { you can add units after this }




Const   Inputs = 2;  // quantita entrata
        Outputs = 2; // quantita uscita

        {INPUTS}  // nome per numero di entrata
         I0 = 0;  // valore I0 = PInput[I0] ossia PInput[0]
         I1 = 1;  // valore I1 = PInput[I1] ossia PInput[1]

      // I3 = 3;
// ... I99 = 99;

        {OUTPUTS} // nome per numero di uscita
         Q0 = 0;  // valore Q0 = POutput[Q0] ossia POutput[0]
         Q1 = 1;  // valore Q1 = POutput[Q1] ossia POutput[1]

      // Q3 = 3;
// ... Q99 = 99;

        {USER}   // nome per numero di variabile, I valori vengono memorizzati

         U0 = 0; // valore U0 = PUser[U0] ossia PUser[0]
      // U1 = 1;
      // U2 = 2;
      // U3 = 3;
// ... U99 = 99;

// I0,I1,I2,I3,Q0,Q1,Q2,Q3,U0,U1,U2,U3
// I nomi possono essere qualsiasi, sono case-insensitive





type TDLLParams = array[0..100] of Extended; //Type of ProfiLab DLL parameters
     PDLLParams = ^TDLLParams;               // Pointer to ProfiLab DLL parameters




     function ApriSaveDialog: ShortString;
     var pannello: TOpenDialog;
     begin
        pannello :=  TSaveDialog.Create(nil);
        try
           pannello.Filter:='*.txt';
           if pannello.Execute then
              result := pannello.FileName
           else
              result := '';
        finally
           pannello.Free;
        end;
        end;


function ApriOpenDialog: ShortString;
var pannello: TOpenDialog;
begin
   pannello :=  TOpenDialog.Create(nil);
   try
      pannello.Filter:='*.txt';
      if pannello.Execute then
         result := pannello.FileName
      else
         result := '';
   finally
      pannello.Free;
   end;
   end;





function NumInputs: Byte;
begin
   result := Inputs; // trasferire quantita entrata
end;



function NumOutputs: Byte;
begin
   result := Outputs; // trasferire quantita uscita
end;




function InputName(Channel: Byte): ShortString; // trasferire nome di entrata

begin
   case Channel of

    I0 : result := 'I0'; // nome di pin I0
    I1 : result := 'I1'; // nome di pin I1

   end;
end;




Function OutputName(Channel: Byte): ShortString; // trasferire nome di uscita

begin
   case Channel of
    Q0 : result := 'Q0'; // nome di pin Q0
    Q1 : result := 'Q1'; // nome di pin Q1

   end;
end;


Procedure SimStart(PInput,POutput,PUser: PDLLParams); // Routine viene eseguita solo al primo avvio

begin
  // solo per inizializzare
end;


Procedure Calculate(PInput,POutput,PUser: PDLLParams); // Routine è permanente

begin


       if  PInput^[I0] >2.5 then ApriOpenDialog;




       if  PInput^[I1] >2.5 then ApriSaveDialog;





       If  PInput^[I0] >2.5 then POutput^[Q0]:=5;





       If  PInput^[I1] >2.5 then POutput^[Q1]:=5;







end;                 // piu funzioni


Procedure SimStop(PInput,POutput,PUser: PDLLParams); // Routine viene es                                                            eguita solo in fase di chiusura

begin
   // solo in chiusura
end;


//export methods for ProfiLab
exports SimStart,
         SimStop,
         NumInputs,
         NumOutputs,
         Calculate,
         InputName,
         OutputName,
         ApriOpenDialog,
         ApriSaveDialog;
begin
end. 

[Stilgar]

prova questo

Codice: [Seleziona]

library dialog;

{$mode objfpc}{$H+}

uses
  Interfaces,
  Classes,
  SysUtils,
  Windows,
  FileUtil,
  Forms,
  Controls,
  Graphics,
  Dialogs;

const
  Inputs = 2;  // quantita entrata
  Outputs = 2; // quantita uscita

  {INPUTS}// nome per numero di entrata
  I0 = 0;  // valore I0 = PInput[I0] ossia PInput[0]
  I1 = 1;  // valore I1 = PInput[I1] ossia PInput[1]

  // I3 = 3;
  // ... I99 = 99;

  {OUTPUTS}// nome per numero di uscita
  Q0 = 0;  // valore Q0 = POutput[Q0] ossia POutput[0]
  Q1 = 1;  // valore Q1 = POutput[Q1] ossia POutput[1]

  // Q3 = 3;
  // ... Q99 = 99;

  {USER}// nome per numero di variabile, I valori vengono memorizzati

  U0 = 0; // valore U0 = PUser[U0] ossia PUser[0]
  // U1 = 1;
  // U2 = 2;
  // U3 = 3;
  // ... U99 = 99;

  // I0,I1,I2,I3,Q0,Q1,Q2,Q3,U0,U1,U2,U3
  // I nomi possono essere qualsiasi, sono case-insensitive
var
  globalDialog: TFileDialog;

type
  TDLLParams = array[0..100] of extended; //Type of ProfiLab DLL parameters
  PDLLParams = ^TDLLParams;               // Pointer to ProfiLab DLL parameters



  function ApriSaveDialog: ShortString;
  begin
    if not assigned(globalDialog) then
    begin
      globalDialog := TSaveDialog.Create(nil);
      try
        globalDialog.Filter := '*.txt';
        if globalDialog.Execute then
          Result := globalDialog.FileName
        else
          Result := '';
      finally
        FreeAndNil(globalDialog);
      end;
    end;
  end;

  function ApriOpenDialog: ShortString;
  begin
    if not assigned(globalDialog) then
    begin
      globalDialog := TOpenDialog.Create(nil);
      try
        globalDialog.Filter := '*.txt';
        if globalDialog.Execute then
          Result := globalDialog.FileName
        else
          Result := '';
      finally
        FreeAndNil(globalDialog);
      end;
    end;
  end;

  function NumInputs: byte;
  begin
    Result := Inputs; // trasferire quantita entrata
  end;

  function NumOutputs: byte;
  begin
    Result := Outputs; // trasferire quantita uscita
  end;

  function InputName(Channel: byte): ShortString; // trasferire nome di entrata
  begin
    case Channel of
      I0: Result := 'I0'; // nome di pin I0
      I1: Result := 'I1'; // nome di pin I1
    end;
  end;

  function OutputName(Channel: byte): ShortString; // trasferire nome di uscita
  begin
    case Channel of
      Q0: Result := 'Q0'; // nome di pin Q0
      Q1: Result := 'Q1'; // nome di pin Q1
    end;
  end;


  procedure SimStart(PInput, POutput, PUser: PDLLParams); // Routine viene eseguita solo al primo avvio
  begin
    POutput^[Q0] := 0;
    POutput^[Q1] := 0;
  end;


  procedure Calculate(PInput, POutput, PUser: PDLLParams); // Routine è permanente
  begin
    if PInput^[I0] > 2.5 then
    begin
      ApriOpenDialog;
      POutput^[Q0] := 5;
    end;
    if PInput^[I1] > 2.5 then
    begin
      ApriSaveDialog;
      POutput^[Q1] := 5;
    end;
  end;

  procedure SimStop(PInput, POutput, PUser: PDLLParams); // Routine viene es                                                            eguita solo in fase di chiusura
  begin
    POutput^[Q0] := 0;
    POutput^[Q1] := 0;
  end;


  //export methods for ProfiLab
exports SimStart,
  SimStop,
  NumInputs,
  NumOutputs,
  Calculate,
  InputName,
  OutputName,
  ApriOpenDialog,
  ApriSaveDialog;
begin
end.

[Stilgar]

Occhio che adesso anche Legolas ti controlla il codice

[Simon75]

Allora è come prima, quando clicco sul bottone della opendialog si apre la finestra e il led è ancora spento quando la chiudo si accende...
Ormai state diventando Profilab dipendenti

[Stilgar]

Questo perchè non c'è nulla che leghi il bottone/led alla dialog del file.
Sono operazioni disgiunte.

[Stilgar]

Per legare le due cose si potrebbe fare in questo modo:

Codice: [Seleziona]

library dialog;

{$mode objfpc}{$H+}

uses
  Interfaces,
  Classes,
  SysUtils,
  Windows,
  FileUtil,
  Forms,
  Controls,
  Graphics,
  Dialogs;

const
  Inputs = 2;  // quantita entrata
  Outputs = 2; // quantita uscita

  {INPUTS}// nome per numero di entrata
  I0 = 0;  // valore I0 = PInput[I0] ossia PInput[0]
  I1 = 1;  // valore I1 = PInput[I1] ossia PInput[1]

  // I3 = 3;
  // ... I99 = 99;

  {OUTPUTS}// nome per numero di uscita
  Q0 = 0;  // valore Q0 = POutput[Q0] ossia POutput[0]
  Q1 = 1;  // valore Q1 = POutput[Q1] ossia POutput[1]

  // Q3 = 3;
  // ... Q99 = 99;

  {USER}// nome per numero di variabile, I valori vengono memorizzati

  U0 = 0; // valore U0 = PUser[U0] ossia PUser[0]
  // U1 = 1;
  // U2 = 2;
  // U3 = 3;
  // ... U99 = 99;

  // I0,I1,I2,I3,Q0,Q1,Q2,Q3,U0,U1,U2,U3
  // I nomi possono essere qualsiasi, sono case-insensitive
var
  globalDialog: TFileDialog;

type
  TDLLParams = array[0..100] of extended; //Type of ProfiLab DLL parameters
  PDLLParams = ^TDLLParams;               // Pointer to ProfiLab DLL parameters



  function ApriSaveDialog: ShortString;
  begin
    result := '';
    if not assigned(globalDialog) then
    begin
      globalDialog := TSaveDialog.Create(nil);
      try
        globalDialog.Filter := '*.txt';
        if globalDialog.Execute then
          Result := globalDialog.FileName
        else
          Result := '';
      finally
        FreeAndNil(globalDialog);
      end;
    end;
  end;

  function ApriOpenDialog: ShortString;
  begin
    result := '';
    if not assigned(globalDialog) then
    begin
      globalDialog := TOpenDialog.Create(nil);
      try
        globalDialog.Filter := '*.txt';
        if globalDialog.Execute then
          Result := globalDialog.FileName
        else
          Result := '';
      finally
        FreeAndNil(globalDialog);
      end;
    end;
  end;

  function NumInputs: byte;
  begin
    Result := Inputs; // trasferire quantita entrata
  end;

  function NumOutputs: byte;
  begin
    Result := Outputs; // trasferire quantita uscita
  end;

  function InputName(Channel: byte): ShortString; // trasferire nome di entrata
  begin
    case Channel of
      I0: Result := 'I0'; // nome di pin I0
      I1: Result := 'I1'; // nome di pin I1
    end;
  end;

  function OutputName(Channel: byte): ShortString; // trasferire nome di uscita
  begin
    case Channel of
      Q0: Result := 'Q0'; // nome di pin Q0
      Q1: Result := 'Q1'; // nome di pin Q1
    end;
  end;


  procedure SimStart(PInput, POutput, PUser: PDLLParams); // Routine viene eseguita solo al primo avvio
  begin
    POutput^[Q0] := 0;
    POutput^[Q1] := 0;
  end;


  procedure Calculate(PInput, POutput, PUser: PDLLParams); // Routine è permanente
  begin
    if PInput^[I0] > 2.5 then
    begin
      if ('' <> ApriOpenDialog) then
      POutput^[Q0] := 5
    else
      POutput^[Q0] := 0;
    end;
    if PInput^[I1] > 2.5 then
    begin
      if ('' <> ApriSaveDialog) then
        POutput^[Q1] := 5
      else
        POutput^[Q1] := 0;
    end;
  end;

  procedure SimStop(PInput, POutput, PUser: PDLLParams); // Routine viene es                                                            eguita solo in fase di chiusura
  begin
    POutput^[Q0] := 0;
    POutput^[Q1] := 0;
  end;


  //export methods for ProfiLab
exports SimStart,
  SimStop,
  NumInputs,
  NumOutputs,
  Calculate,
  InputName,
  OutputName,
  ApriOpenDialog,
  ApriSaveDialog;
begin
end.

[Simon75]

Non si accendono ne quando apro e  ne quando chiudo