DLL per salvare e richiamare file txt.

[Simon75]

Mi fai un esempio?

[Stilgar]

Codice: [Seleziona]

Writeln(Output,'Testo di prova');

equivale a

Codice: [Seleziona]

Writeln('Testo di prova');

Se esegui prima un :

Codice: [Seleziona]

AssignFile(Output,'Filedioutput.txt');
Rewrite(Output);

fai grosso modo quello che per la console viene fatto per "puntare" all'output a video. Solo che fai il tutto su file.

Stessa cosa per il read. Al posto di averlo aperto su input standard (tastiera) puoi far leggere da file.

Stilgar

[Simon75]

Ma Read e Write come sono adesso cosa sono? non mi sembrano variabili e quindi non posso scriverci dentro è anche per quello che non mi legge e ne stampa.

Codice: [Seleziona]

  procedure CalculateEx(PInput, POutput, PUser: PDLLParams; PStrings: PStringParams);
  // Routine è permanente

  var

    s: shortstring;




  begin

    if PInput^[I0] > 2.5 then
    begin
      s := ApriOpenDialog;
      if s <> '' then
        CaricaArrayDaFile(s, POutput);
    end;

    if PInput^[I1] > 2.5 then
    begin
      s := ApriSaveDialog;
      if s <> '' then
        SalvaArrayInFile(s, POutput);
    end;

    PInput^[Read] := Read;       
    POutput^[Write] := Write;   
  end;

Codice: [Seleziona]

    PInput^[Read] := Read;      //Questo ingresso Read cosa legge?
    POutput^[Write] := Write;   //Questa uscita write cosa stampa?

[Stilgar]

Codice: [Seleziona]

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]
  Read = 2;
  // I3 = 3;
  // ... I99 = 99;

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

[Simon75]

infatti sono costanti che valgono una  Read = 2; Write = 0;
ecco perchè non funziona
Quindi dovrei dichiarare delle variabili per leggere e stampare ma le dichiaro come?
ho bisogno di leggere delle stringhe e stampare stringhe metterei

Codice: [Seleziona]

procedure CalculateEx......;
Var
Leggi : string;
Stampa : string;
begin
......
.......
.......
PInput^[Read] := read(Leggi) ;
POutput^[Write] := write(Stampa);
end; 

Solo che mi darà problemi il compilatore e quindi dovrei convertirlo da stringa a extended potrei usare:

Codice: [Seleziona]

PInput^[Leggi] = StrToFloat(StringReplace(lettura,'.', ',', 
[rfReplaceAll]));

Non so ditemi voi 

[Stilgar]

Dai che stai iniziando ad imboccare la strada giusta.

[Simon75]

Mi sa che ho bisogno di una controllatina 

Codice: [Seleziona]

function StrToFloat ( FloatString : string ) : Extended;
  Var
  Leggi: string;
  Leggiuno:extended;
  Stampa: string;
  Stampauno:extended;
  begin
   Leggi:= PInput^[Read];
   leggiuno:=Leggi StrToFloat(Leggi);
   Stampa:=POutput^[Write];
   Stampauno:=Stampa StrToFloat(Stampa);
   end;

Codice: [Seleziona]

procedure CalculateEx............
.......
.......
......
......
.......


PInput^[Read] := readln(Leggi);
POutput^[Write] := writeln(Stampa);

  end;             

[Stilgar]

Codice: [Seleziona]

 begin
   Leggi:= PInput^[Read];
   leggiuno:=Leggi StrToFloat(Leggi);
   Stampa:=POutput^[Write];
   Stampauno:=Stampa StrToFloat(Stampa);
   end;

Osservazioni:
1) Ammesso che ti abbia compilato (e non credo), cosa volevi scrivere con

Codice: [Seleziona]

  leggiuno:=Leggi StrToFloat(Leggi);

Togli "Leggi" dopo ":=". Forse ti compila.
2) Ammesso che volessi scrivere

Codice: [Seleziona]

function StrToFloat ( FloatString : string ) : Extended;
begin
...
 leggiuno:=StrToFloat(Leggi);

Richiami la funzione dentro la funzione (ricosione) ma non vedo la condizione di uscita. Qui ti crepa lo stack di chiamata.

3) Leggi e scrivi... chi le valorizza?
Nessuno, per cui stai leggendo casualmente la memoria.

Codice: [Seleziona]

function StrToFloat ( FloatString : string ) : Extended;
  Var
  Leggi: string;
  Leggiuno:extended;
  Stampa: string;
  Stampauno:extended;
  begin
   Leggi:= PInput^[Read];

Ma se usi una funzione che legge una stringa e la traduce in numero, perchè non ti è venuto in mente di una stringa e tradurla in numero?

Non siamo in javascript che tutto fa brodo.

Stilgar

[Simon75]

Non riesco a capire come restituire il valore con le funzioni:

es:

Codice: [Seleziona]

function StrToFloat(Leggi, Stampa: string): extended;

  begin
    StrToFloat := StrToFloat(Stampa);
    StrToFloat := StrToFloat(Leggi);
  end;

Codice: [Seleziona]

procedure CalculateEx......
 var
    Leggi: extended;
    Stampa: extended;
begin
............
............
 
.........
..........
.........
 PInput^[Read] := readln(StrToFloat);
 POutput^[Write] := writeln(StrToFloat);
end;

[Stilgar]

http://www.freepascal.org/docs-html/ref/refse64.html#x118-12800012.2

[Simon75]

Helppppppppppp   

Codice: [Seleziona]

  procedure CalculateEx(PInput, POutput, PUser: PDLLParams; PStrings: PStringParams);
  // Routine è permanente

  var
    Leggi:string;
    Stampa:string;
    s: shortstring;

  begin



    if PInput^[I0] > 2.5 then
    begin
      s := ApriOpenDialog;
      if s <> '' then
        CaricaArrayDaFile(s, POutput);
    end;

    if PInput^[I1] > 2.5 then
    begin
      s := ApriSaveDialog;
      if s <> '' then
        SalvaArrayInFile(s, POutput);
    end;

    PInput^[Leggi] = StrToFloat(StringReplace(Leggi.Text,'.', ',',
    [rfReplaceAll]));
     POutput^[Stampa] = StrToFloat(StringReplace(Stampa.Text,'.', ',',
    [rfReplaceAll]));



  end;     

project1.lpr(129,22) Hint: Parameter "PInput" not used
project1.lpr(129,30) Hint: Parameter "POutput" not used
project1.lpr(129,39) Hint: Parameter "PUser" not used
project1.lpr(204,13) Warning: Local variable "Leggi" does not seem to be initialized
project1.lpr(204,18) Error: Incompatible types: got "AnsiString" expected "ShortInt"
project1.lpr(204,53) Error: Illegal qualifier
project1.lpr(205,21) Error: Illegal expression
project1.lpr(206,15) Warning: Local variable "Stampa" does not seem to be initialized
project1.lpr(206,21) Error: Incompatible types: got "AnsiString" expected "ShortInt"
project1.lpr(206,57) Error: Illegal qualifier
project1.lpr(207,21) Error: Illegal expression
project1.lpr(236) Fatal: There were 6 errors compiling module, stopping

Tutta la DLL

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 := low(PAParams^) to high(PAParams^) do
        sl.Values[IntToStr(i)] := FloatToStr(PAParams^[i]);

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

  procedure CaricaArrayDaFile(FileName: string; PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
    e: extended;
    s: string;
  begin
    sl := TStringList.Create;
    try
      sl.LoadFromFile(FileName);
      for i := low(PAParams^) to high(PAParams^) do
      begin
        // piuttosto che scrivere:
        // PAParams^[i] := StrToFloat(sl.Values[ inttostr(i) ]);
        // scrivendo come sotto è più facile fare il debug
        // quando l'hai testata puoi usare la forma commentata qui sopra
        s := sl.Values[IntToStr(i)];
        e := StrToFloat(s);
        PAParams^[i] := e;
      end;
    finally
      sl.Free;
    end;
  end;


  procedure CalculateEx(PInput, POutput, PUser: PDLLParams; PStrings: PStringParams);
  // Routine è permanente

  var
    Leggi:string;
    Stampa:string;
    s: shortstring;

  begin



    if PInput^[I0] > 2.5 then
    begin
      s := ApriOpenDialog;
      if s <> '' then
        CaricaArrayDaFile(s, POutput);
    end;

    if PInput^[I1] > 2.5 then
    begin
      s := ApriSaveDialog;
      if s <> '' then
        SalvaArrayInFile(s, POutput);
    end;

    PInput^[Leggi] = StrToFloat(StringReplace(Leggi.Text,'.', ',',
    [rfReplaceAll]));
     POutput^[Stampa] = StrToFloat(StringReplace(Stampa.Text,'.', ',',
    [rfReplaceAll]));



  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.

[Simon75]

Codice: [Seleziona]

 procedure CalculateEx(PInput, POutput, PUser: PDLLParams; PStrings: PStringParams);
  // Routine è permanente

  var
    input:string;
    output:string;
    s: shortstring;

  begin



    if PInput^[I0] > 2.5 then
    begin
      s := ApriOpenDialog;
      if s <> '' then
        CaricaArrayDaFile(s, POutput);
    end;

    if PInput^[I1] > 2.5 then
    begin
      s := ApriSaveDialog;
      if s <> '' then
        SalvaArrayInFile(s, POutput);
    end;

    PInput^[Leggi] = StrToFloat(StringReplace(input.Text,'.', ',',
    [rfReplaceAll]));
     POutput^[Stampa] = StrToFloat(StringReplace(output.Text,'.', ',',
    [rfReplaceAll]));



  end;

project1.lpr(129,22) Hint: Parameter "PInput" not used
project1.lpr(129,30) Hint: Parameter "POutput" not used
project1.lpr(129,39) Hint: Parameter "PUser" not used
project1.lpr(204,53) Error: Illegal qualifier
project1.lpr(205,21) Error: Illegal expression
project1.lpr(206,57) Error: Illegal qualifier
project1.lpr(207,21) Error: Illegal expression
project1.lpr(236) Fatal: There were 4 errors compiling module, stopping

[Stilgar]

input.Text
output.Text

[Simon75]

Si perchè sto lavorando in ambiente grafico, non comandi per
ambiente a carattere (il vecchio MS DOS per intenderci).
Da una casella di testo c'è un solo
modo per Leggere il contenuto: es. Leggere.Text e per stampare Scrivere.Text:=Scrivere
Dovrebbe essere così...
Si ma ho degli errori

Codice: [Seleziona]

PInput^[Leggi] = StrToFloat(StringReplace(Leggere.Text,'.', ',',[rfReplaceAll]));
    POutput^[Stampa] = StrToFloat(StringReplace(Scrivere.Text:=Scrivere,'.', ',',[rfReplaceAll]));

project1.lpr(129,22) Hint: Parameter "PInput" not used
project1.lpr(129,30) Hint: Parameter "POutput" not used
project1.lpr(129,39) Hint: Parameter "PUser" not used
project1.lpr(207,55) Error: Illegal qualifier
project1.lpr(207,85) Error: Illegal expression
project1.lpr(208,58) Error: Illegal qualifier
project1.lpr(208,62) Fatal: Syntax error, ")" expected but ":=" found

[Stilgar]

Codice: [Seleziona]

input:string; 

Codice: [Seleziona]

StringReplace(input.Text,'.', ',',

Non so dove tu veda il TEdit in queste dichiarazioni ... va bene usare le stringhe o i campi di edit ... ma nel modo corretto.

Qui usi il "confronto" come assegnazione.
Metti delle assegnazioni a caso ...

Codice: [Seleziona]

StringReplace(Scrivere.Text:=Scrivere

in

Codice: [Seleziona]

     POutput^[Stampa] = StrToFloat(StringReplace(Scrivere.Text:=Scrivere,'.', ',',[rfReplaceAll]));

Codice: [Seleziona]

 PInput^[Leggi] = StrToFloat
 POutput^[Stampa] = StrToFloat