DLL Profilabexpert

[Simon75]

così non carica niente

Nome del file selezionato : C:\Documents and Settings\Simone\Desktop\dll\Prova.txt
POutput ok
0: valore = <>
  0 non caricato

[Simon75]

No...scusatemi ho copiato per intero quanto scritto da nomore e non avevo modificato 

questa riga

Codice: [Seleziona]

s := sl.Values[IntToStr(i)];

in questa

Codice: [Seleziona]

 s := sl[i];

Ora l'errore non esce più e nella log vedo che carica ma nel display non vedo il risultato.

Codice: [Seleziona]

procedure CaricaArrayDaFile(FileName: string; PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
    e: extended;
    s: string;
  begin
    sl := TStringList.Create;
    try
      try
        sl.LoadFromFile(FileName);
        for i := low(PAParams^) to high(PAParams^) do
        begin
          if not (i in [0..sl.Count - 1]) then
            break;
          s := sl[i];

          // s := sl.Values[IntToStr(i)];
          log(IntToStr(i) + ': valore = <' + s + '>');
          if s <> '' then
          begin
            e := StrToFloat(s);
            PAParams^[i] := e;
            log('   ' + IntToStr(i) + ' caricato');
          end
          else
          begin
            log('  ' + IntToStr(i) + ' non caricato');
          end;
        end;
      except
        on e: Exception do
        begin
          log('porca miseria! "' + e.message + '"');
          raise e;
        end;
      end;
    finally
      sl.Free;
    end;
  end;

Nome del file selezionato : C:\Documents and Settings\Simone\Desktop\dll\Prova.txt
POutput ok
0: valore = <23>
   0 caricato

[Simon75]

Ciao  Stilgar e Nomore vi ringrazio molto funziona!!!
sbagliavo a inserire i dati di input li salvavo come numerici e poi pretendevo di visualizzarli come stringhe nel display stringa (sempre in Profilab)

Adesso ho due domade da farvi ancora:

1) Dovrei salvarli come stringhe e ho pensato di usare questo:

Codice: [Seleziona]

  TStringParams = array[0..100] of PChar;   //Type of ProfiLab DLL parameters
  PStringParams = ^TStringParams;        // Pointer to ProfiLab DLL parameters 

2) Vorrei inserire un semplice ShowMessage nel momento che premo salva, giusto per capire se ha salvato. Ho provato ma genera un errore, forse nelle dll va usata sotto procedura?

Attualmente mi genera 2 errori di tipo ma non so come rimediare:



project1.lpr(130,22) Hint: Parameter "PInput" not used
project1.lpr(130,30) Hint: Parameter "POutput" not used
project1.lpr(130,39) Hint: Parameter "PUser" not used
project1.lpr(246,39) Error: Incompatible type for arg no. 2: Got "PStringParams", expected "PDLLParams"
project1.lpr(181,13) Hint: Found declaration: CaricaArrayDaFile(AnsiString,PDLLParams);
project1.lpr(257,38) Error: Incompatible type for arg no. 2: Got "PStringParams", expected "PDLLParams"
project1.lpr(138,13) Hint: Found declaration: SalvaArrayInFile(AnsiString,PDLLParams);
project1.lpr(286) Fatal: There were 2 errors compiling module, stopping

Codice: [Seleziona]

library project1;

{$mode objfpc}{$H+}

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

const
  Inputs = 3;  // quantita entrata
  Outputs = 1; // 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]
  Leggi = 2;
  // I3 = 3;
  // ... I99 = 99;

  {OUTPUTS}// nome per numero di uscita
  Stampa = 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

  TStringParams = array[0..100] of PChar;   //Type of ProfiLab DLL parameters
  PStringParams = ^TStringParams;        // Pointer to ProfiLab DLL parameters


  function ApriSaveDialog: ShortString;

  begin
    Result := '';
    if not assigned(globalDialog) then
    begin
      globalDialog := TSaveDialog.Create(nil);
      try
        globalDialog.DefaultExt := 'txt';

        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.DefaultExt := 'txt';
        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
      Leggi: Result := '$Leggi';
    end;
  end;

  function OutputName(Channel: byte): ShortString; // trasferire nome di uscita
  begin
    case Channel of
      Stampa: Result := '$Stampa'; // 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

  end;



  procedure SalvaArrayInFile(FileName: string;
    PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
  begin

    sl := TStringList.Create;
    try
      for i := 2 to 3 do
        // for i := low(PAParams^) to high(PAParams^) do

        if PAParams^[i] = 0 then


          sl.Add(FloatToStr(PAParams^[i]));


      sl.SaveToFile(FileName);
    finally
      sl.Free;
    end;

  end;

  procedure log(msg: string);
  begin
    AssignFile(Output, 'Debug.txt');
    if (FileExists('Debug.txt')) then
    begin
      Append(Output);
    end
    else
    begin
      Rewrite(Output);
    end;
    WriteLn(Output, msg);
    Flush(Output);
    CloseFile(Output);
  end;



  procedure CaricaArrayDaFile(FileName: string;
    PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
    e: extended;
    s: string;
  begin
    sl := TStringList.Create;
    try
      try
        sl.LoadFromFile(FileName);

        for i := low(PAParams^) to high(PAParams^) do
        begin
          if not (i in [0..sl.Count - 1]) then
            break;
          s := sl[i];

          // s := sl.Values[IntToStr(i)];
          log(IntToStr(i) + ': valore = <' + s + '>');
          if s <> '' then
          begin
            e := StrToFloat(s);
            PAParams^[i] := e;
            log('   ' + IntToStr(i) + ' caricato');
          end
          else
          begin
            log('  ' + IntToStr(i) + ' non caricato');
          end;
        end;
      except
        on e: Exception do
        begin
          log('porca miseria! "' + e.message + '"');
          raise e;
        end;
      end;
    finally
      sl.Free;
    end;
  end;


  procedure CalculateEx(PInput,POutput, PUser: PDLLParams; PStrings : PStringParams);
  // Routine è permanente
  var
    sl: TStringList;
    s: string;
  begin

    if PInput^[I0] > 2.5 then
    begin
      if (PInput^[I0] > 2.5) and not (PUser^[U0] > 2.5) then
      begin
        s := ApriOpenDialog;
        log('Nome del file selezionato : ' + s);
        if s <> '' then
        begin
          if assigned(POutput) then
            log('POutput ok')
          else
            raise Exception.Create('Non ci siamo');

          CaricaArrayDaFile(s,PStrings);
        end;
      end;
    end;
    PUser^[U0] := PInput^[I0];
    if PInput^[I1] > 2.5 then
    begin
      if (PInput^[I1] > 2.5) and not (PUser^[I1] > 2.5) then
      begin
        s := ApriSaveDialog;
        if s <> '' then
          SalvaArrayInFile(s,PStrings);
      end;
    end;
    PUser^[I1] := PInput^[I1];
  end;




  procedure SimStop(PInput, POutput, PUser: PDLLParams);
  // Routine viene eseguita solo in fase di chiusura
  begin

  end;


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

[nomorelogic]

la dichiarazione CaricaArrayDaFile è la seguente:
procedure CaricaArrayDaFile(FileName: string; PAParams: PDLLParams);
e si aspetta nr. 2 parametri: 1 di tipo string e 1 di tipo PDLLParams

quando la richiami con
CaricaArrayDaFile(s,PStrings);
stai passando 1 parametri di tipo string ed 1 di tipo PStringParams
il compilatore giustamente si incacchia

ora:
a prescindere da come li salvi sul file, in memoria , sono sempre rappresentati nello stesso modo (PAParams: PDLLParams).
Inoltre, una volta che sono un in file, è come se già fossero una stringa: è nel momento in cui li rileggi che devi preoccuparti di convertirli per poterli memorizzare.

Qual è il problema che vorresti risolvere quando dici che vorresti salvarli come stringhe?

[Simon75]

Non riesco a salvare numeri con il separatore ; e non riesco a salvare numeri con / esempio 3300/400 mi salva solo 3300 stessa cosa per il ; 4500;500 mi salva solo il 4500.

Stessa cosa per caricare, ho provato ad aprire il file txt e scriverci dentro i numeri 3434;456
e la log mi tira fuori questo

0: valore = <3434;456>
porca miseria! ""3434;456" is an invalid float"

[nomorelogic]

intanto risolviamo il salvataggio, per il load lo vedremo quando il salvataggio funziona

nella procedura SalvaArrayInFile devi intervenire sull'istruzione seguente

Codice: [Seleziona]

sl.Add(FloatToStr(PAParams^[i]));

sl è una TStringList ed ovviamente il metodo Add come parametro richiede una stringa
è per questo che usi FloatToStr, per convertire PAParams^ in una stringa e per passarla poi come parametro ad Add
se devi salvare in quel formato che dici tu puoi fare qualcosa del genere:

Codice: [Seleziona]

sl.Add( '<' + FloatToStr(PAParams^[i]) + ';' +  FloatToStr("un altro numero") + '>' );

che altro non è che una concatenazione di stringhe

fatto questa modifica salva il file ma non ricaricarlo in memoria (viene letto un numero ed ora non ci sono numeri) ma vai a vedere nel file se tutto è ok
per il load, poi si vedrà

[Simon75]

Si nel file txt mi salva giusto, ho messo un numero a caso nelle parentesi:

Codice: [Seleziona]

 sl.Add( '<' + FloatToStr(PAParams^[i]) + ';' +  FloatToStr(3434) + '>' );

Il risultato:

<78;3434>

[nomorelogic]

altra domanda:
nel file il formato di salvataggio è sempre lo stesso?
tipo: <78;3434>

o c'è possibilità che a volte devi memorizzare altre combinazioni tipo
78
<434>
#78;3434/343#

[Simon75]

Quello che andrò a salvare sarà es:

 2200;400;677 oppure 3300/400

[nomorelogic]

prova ad usare questa procedura
una cosa non mi è chiara: nella versione precedente leggevi un valore per riga e lo mettevi nella variabile 'e'.
ora i valori sono 2 o 3: è per questo che ho definito un array (nr) da 1 a tre
però non so cosa ci devi fare con i valori successivi al primo, quindi dovrai terminare tu la procedura.

NB: l'ho scritta su un text editor e non l'ho nè provata nè compilata...

Codice: [Seleziona]

procedure CaricaArrayDaFile(FileName: string;
    PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
    // e: extended;
    s: string;
	
	sep: string;
	p,idx: integer;
	nr: array[1..3] of extended;
  begin
    sl := TStringList.Create;
    try
      try
        sl.LoadFromFile(FileName);

        for i := low(PAParams^) to high(PAParams^) do
        begin
          if not (i in [0..sl.Count - 1]) then
            break;
          s := sl[i];

          // s := sl.Values[IntToStr(i)];
          log(IntToStr(i) + ': valore = <' + s + '>');
          if s <> '' then
          begin
		    sep := '';
			p := pos('/', s);
		    if p > 0 then 
			   sep := '/';
			if p = 0 then begin
			   p := pos(';', s);
			   if p > 0 then
			      sep := ';';
			end;   		  
		    if sep = '' then
			   raise exception.create('impossibile determinare il tipo di tracciato record');
		  
		    for idx := 1 to 3 do
			  nr[idx] := 0;
			  
            idx := 0;			
		    repeat
			   inc(idx);
			   nr[idx] := StrToFloat(copy(s, 1, p-1));
			   s := copy(s, p+1, length(s));			   
			   p := pos(sep, s);
			until (s = '') or (p = 0);
			
            // e := StrToFloat(s); -> il primo numero è in nr[1]
            // PAParams^[i] := e;
            PAParams^[i] := nr[1];

            log('   ' + IntToStr(i) + ' caricato');
          end
          else
          begin
            log('  ' + IntToStr(i) + ' non caricato');
          end;
        end;
      except
        on e: Exception do
        begin
          log('porca miseria! "' + e.message + '"');
          raise e;
        end;
      end;
    finally
      sl.Free;
    end;
  end;

[Simon75]

OK ho risolto  in SalvaArrayInFile e mi salva correttamente: 3300;400....

ora questo 3300;400 non gli va bene quando lo carico e dalla log  mi esce:

0: valore = <3300;400>
porca miseria! ""3300;400" is an invalid float"

Codice: [Seleziona]

procedure CaricaArrayDaFile(FileName: string; PAParams: PDLLParams; PStringParams:PStringParams);
  var
    i: integer;
    sl: TStringList;
    e: extended;
    s: string;
  begin
        sl := TStringList.Create;
    try
      try
        sl.LoadFromFile(FileName);
         //for i := 0 to 1 do
        for i := low(PAParams^) to high(PAParams^) do
        begin
          if not (i in [0..sl.Count - 1]) then
            break;
          s := sl[i];

          // s := sl.Values[IntToStr(i)];
          log(IntToStr(i) + ': valore = <' + s + '>');
          if s <> '' then
          begin
            e := strtofloat(s);
            PAParams^[i] := e;
            log('   ' + IntToStr(i) + ' caricato');
          end
          else
          begin
            log('  ' + IntToStr(i) + ' non caricato');
          end;
        end;
      except
        on e: Exception do
        begin
          log('porca miseria! "' + e.message + '"');
          raise e;
        end;
      end;
    finally
      sl.Free;
    end;
  end;

[nomorelogic]

devi provare CaricaArrayDaFile che trovi nel mio post precedente

[Simon75]

Si non mi da più errore, e vedo che carica dalla log ma non leggo niente nel display...

Per riuscire a leggere nel display dovrei usare questo:

Codice: [Seleziona]

     TStringParams = array[0..100] of PChar;   //Type of ProfiLab DLL parameters
  PStringParams = ^TStringParams;        // Pointer to ProfiLab DLL parameters 

In CaricaArrayDaFile  attualmente gli sto passando  PStringParams  ma non viene usato, come posso usarlo?

Codice: [Seleziona]

procedure CaricaArrayDaFile(FileName: string;
    PAParams: PDLLParams; PStringParams: PStringParams);
  var
    i: integer;
    sl: TStringList;
    // e: extended;
    s: string;

    sep: string;
    p,idx: integer;
    nr: array[1..3] of extended;
  begin
    sl := TStringList.Create;
    try
      try
        sl.LoadFromFile(FileName);

        for i := low(PAParams^) to high(PAParams^) do
        begin
          if not (i in [0..sl.Count - 1]) then
            break;
            s := sl[i];

          //s := sl.Values[IntToStr(i)];
          log(IntToStr(i) + ': valore = <' + s + '>');
          if s <> '' then
          begin
            sep := '';
            p := pos('/', s);
            if p > 0 then
               sep := '/';
            if p = 0 then begin
               p := pos(';', s);
               if p > 0 then
                  sep := ';';
            end;
            if sep = '' then
               raise exception.create('impossibile determinare il tipo di tracciato record');

            for idx := 1 to 3 do
              nr[idx] := 0;

            idx := 0;
            repeat
               inc(idx);
               nr[idx] := StrToFloat(copy(s, 1, p-1));
               s := copy(s, p+1, length(s));
               p := pos(sep, s);
            until (s = '') or (p = 0);

            // e := StrToFloat(s); -> il primo numero è in nr[1]
            // PAParams^[i] := e;
            PStringParams^[i] := nr[1];

            log('   ' + IntToStr(i) + ' caricato');
          end
          else
          begin
            log('  ' + IntToStr(i) + ' non caricato');
          end;
        end;
      except
        on e: Exception do
        begin
          log('porca miseria! "' + e.message + '"');
          raise e;
        end;
      end;
    finally
      sl.Free;
    end;
  end;

Grazie

[Simon75]

Avete idea di come mai lo vedo caricare nella log ma non nei display?

Ho fatto questa modifica:

Codice: [Seleziona]

    procedure CaricaArrayDaFile(FileName: string; PAParams: PDLLParams; PStringParams:PStringParams);
  var
    i: integer;
    sl: TStringList;
  //  e: extended;
    s: string;
  begin
        sl := TStringList.Create;  // istanzio l'oggetto
    try
      try
        sl.LoadFromFile(FileName);  // carico il file
         for i := 0 to 0 do         // cerco il file da caricare
        //for i := low(PAParams^) to high(PAParams^) do
        begin
          if not (i in [0..sl.Count - 1]) then
            break;
         s := sl[i];

          //s := sl.Values[IntToStr(i)];
          log(IntToStr(i) + ': valore = <' + s + '>');
          if s <> '' then       // se cè qualcosa allora
          begin
         // e := strtofloat(s);  // converto s da stinga float e l'assegno a extended
          sl.Add(PStringParams^[i]);

            //PAParams^[i] := e;
            log('   ' + IntToStr(i) + ' caricato');
          end
          else
          begin
            log('  ' + IntToStr(i) + ' non caricato');
          end;
        end;
      except
        on e: Exception do
        begin
          log('porca miseria! "' + e.message + '"');
          raise e;
        end;
      end;
    finally
      sl.Free;
    end;
  end;    

[Simon75]

Ciao,

Ho provato in questo modo non da errori  ma non vedo niente nel display.

Ho provato a inserire un vettore stringa nella varibile globale poichè penso che s occupa sempre la stessa area di RAM e al massimo alla fine della procedura lì il programma troverebbe solo l'ultimo valore; in realtà neppure quello perchè terminata la procedura s in quanto variabile locale SPARISCE

Codice: [Seleziona]

var
  globalDialog: TFileDialog;
  i: integer;
  stringhe: array [0..100] of string;

Poi ho modificato CaricaArryDaFile così:

Codice: [Seleziona]

procedure CaricaArrayDaFile(FileName: string; PAParams: PDLLParams; PStringParams:PStringParams);
  var
    //i: integer;
    sl: TStringList;
    //e: extended;
    s: string;
  begin
        sl := TStringList.Create;
    try
      try
        sl.LoadFromFile(FileName);
        for i := 0 to 1 do
        //for i := low(PStringParams^) to high(PStringParams^) do
        begin
          if not (i in [0..sl.Count - 1]) then
            break;

         s := sl[i];
         //s[LastDelimiter(';',s)]:=',';

          log(IntToStr(i) + ': valore = <' + s + '>');
          if s <> '' then
          begin
          stringhe[i]:=s;
          PStringParams^[i] := PChar(stringhe[i]);

         
           log('   ' + IntToStr(i) + ' caricato');
          end
          else
          begin
            log('  ' + IntToStr(i) + ' non caricato');
          end;
        end;
      except
        on e: Exception do
        begin
          log('porca miseria! "' + e.message + '"');
          raise e;
        end;
      end;
    finally
      sl.Free;
    end;
  end;

Ora la mia domanda è per voi ci sono altre modifiche da fare? 
 
Come si esegue un debug per una DLL?

Vi ringrazio.