DLL per salvare e richiamare file txt.

[Simon75]

Codice: [Seleziona]

var
    Leggere:Text;
    Scrivere:Text;

Avevo già provato a dichiararle come Text ma non cambiava nulla.

Devo configurare l'ingresso della dll per fa acquisire le stringhe che invio.
Stessa cosa per l'uscita, le deve inviare ai display da quelli salvati

[Stilgar]

Simon, ribadisco il discorso già fatto.

Se io iniziassi a tartassarti con richieste sui BJT, senza sapere una mazza di elettronica, cosa mi consiglieresti?
Leggi qualche cosa e poi ne riparliamo.

Stai solo facendo confusione.
Da quello che stai scrivendo, mi viene da pensare che tu abbia una qualche esperienza con Javascript.
JavaScript è un linguaggio basato su direttive ECMA. Il concetto di "tipo" è molto aleatorio nei linguaggi ECMA.
In Pascal e altri linguaggi, il concetto di tipo è stringente.

Posso anche aprezzare i tuoi sforzi nel cercare di capire ed imparare, ma ti stai muovendo con una benda sugli occhi in un bosco. Per forza non ne esci.

[Simon75]

Se io iniziassi a tartassarti con richieste sui BJT, senza sapere una mazza di elettronica, cosa mi consiglieresti?

Non ti farei girovagare nel bosco, ma ti darei la soluzione senza farti perdere altro tempo, da quella soluzione imparerai a non fare più errori senza farti scoraggiare.
Ti saluto
 

[Simon75]

I valori degli Array mi rimangono a zero, come posso fare?
Saluti

[Stilgar]

Vuol dire :
1) Leggi zeri
2) Non scrivi i valori correttamente

[nomorelogic]

infatti; per venirne a capo dovresti fare di test per capire come mai l'array non viene valorizzato.

[Simon75]

Ciao,
Attualmente ho modificato cosi:

Codice: [Seleziona]

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

  var

    s: string;

  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, PInput);
    end;
  end;

esattamente questa stringa:

Codice: [Seleziona]

SalvaArrayInFile(s, PInput);

In questo modo quello che scrivo nella tabella lo legge e fino a qui va bene ma in più mi scrive un 1=5 che non so dove lo pesca e in più tutto l'indice  del vettore da 1 a 100 cosa che non vorrei visualizzare.

0=0
1=5           questo da dove è uscito?
2=33434   questo numero l'ho scritto nella casella di testo OK
3=0
4=0
5=0
6=0
7=0
8=0
........n=100

[nomorelogic]

In questo modo quello che scrivo nella tabella lo legge e fino a qui va bene ma in più mi scrive un 1=5 che non so dove lo pesca e in più tutto l'indice  del vettore da 1 a 100 cosa che non vorrei visualizzare.

hai già verificato se nella posizione 1 c'è o no il valore 5?

per il resto che non vuoi visualizzare, basta che ci metti un if all'interno del loop, ad esempio:

Codice: [Seleziona]

for i := low(PDLLParams^) to high(PDLLParams^) do
    if PDLLParams^[i] <> 0 then
        sl.Values[ inttostr(i) ] := FloatToStr( PDLLParams^[i] );

[Simon75]

Come faccio a verificarlo? l'elemento di posizione [] non cè.
attualmente nell'ingresso ho messo solo una casella quindi deve leggere solo un numero, però vorrei anche capire come fa a scegliersi lui l'indice del vettore per esempio in questo caso ha scritto nel 2=33434  e nel 1=5 questo l'ha generato da solo.

Codice: [Seleziona]

 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

        s := sl.Values[IntToStr(i)];
        e := StrToFloat(s);
        PAParams^[i] := e;
      end;
    finally
      sl.Free;
    end;
  end; 

[Stilgar]

Ma questo array è stato inizializzato a "0" prima di usarlo?
Così per sapere...

[nomorelogic]

in effetti inizializzare l'array non è una pessima idea
comunque, fai una prova a salvare l'array appena creato

[Simon75]

Ciao,
Non cambia nulla, ho provato a scrivere per esempio un "ciao", ma non  lo salva.
Pare che salva solo numeri sempre nel solito indice.

Codice: [Seleziona]

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

Codice: [Seleziona]

  procedure SalvaArrayInFile(FileName: string; PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
  begin
    i := 0;
    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
    i := 0;
    sl := TStringList.Create;
    try
      sl.LoadFromFile(FileName);
      for i := low(PAParams^) to high(PAParams^) do
      begin
        s := sl.Values[IntToStr(i)];
        e := StrToFloat(s);
        PAParams^[i] := e;
      end;
    finally
      sl.Free;
    end;
  end;   

Ma se dovessi inserire PString dovrebbe risolvermi il problema? al posto di PInput e POutput?
Solo che dovrei modificare i 2 Array : CaricaArrayDaFile e SalvaArrayInFile

Codice: [Seleziona]

CaricaArrayDaFile(s, POutput);


 SalvaArrayInFile(s, PInput);

Codice: [Seleziona]

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

  var

    s: string;

  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, PInput);
    end;

  end;  

[nomorelogic]

Ciao,
Non cambia nulla, ho provato a scrivere per esempio un "ciao", ma non  lo salva.
Pare che salva solo numeri sempre nel solito indice.

scusa ma mi sono perso...
si tratta di un array di extended, dove lo hai scritto ciao?

Edit:
cambiando il tipo non è che risolvi più di tanto (a meno di un effetto collaterale fortunato) quindi il bug quasi sicuramente ti rimane.
Le due funzioni Salva e Carica sono piuttosto semplici, a occhio non penso sia lì il problema, cerca di capire come ci finisce quel valore nell'array.

[Simon75]

Allora in parte ha tolto tutto l'indice ma lascia solo 1=5 e 2=345 rimangono quelli dove va a scrivere ma vorrei togliere anche 1= e 2=
 

Codice: [Seleziona]

procedure SalvaArrayInFile(FileName: string; PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
  begin
    sl := TStringList.Create;
    try
      for i := low(PAParams^) to high(PAParams^) do

        if PAParams^[i] <> 0 then


          sl.Values[IntToStr(i)] := FloatToStr(PAParams^[i]);

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

[nomorelogic]

hai mica cercato "345" all'interno di tutto il sorgente?
mi viene il sospetto che ci sia qualche costante da qualche parte...