Post recenti

Pagine: [1] 2 3 ... 10

Generale / Re:un blog?

« Ultimo post da nomorelogic il Oggi alle 06:42:11 pm »

Ciao a tutti

per chi fosse interessato all'autenticazione a 2 fattori con Lazarus / Free Pascal, ho scritto un tutorial nel blog.

https://blog.lazaruspascal.it/2024/05/16/autenticazione-2fa/

C'è allegato anche il progetto, è minimale, spero venga compilato da tutti senza problemi.
Se ci sono svarioni, fate pure sapere.

Spero sia utile
nomorelogic

Generale / Re:parametri passati per riferimento

« Ultimo post da petrusic il Oggi alle 05:16:17 pm »

Ho trovato il conflitto di dichiarazioni.

Non si vede nel codice che ho postato, perchè veniva scatenato dalla dichiarazione riportata nelle procedura chiamata:

Codice: [Seleziona]

procedure CancMovvFinIniAnno(tbIDMovim: String; nomeTbDB, nomeCampoID: String);  <-- prima

procedure CancMovvFinIniAnno(tbIDMovim: array of String; nomeTbDB, nomeCampoID: String);  <-- dopo

Sostituendo la prima riga con la seconda, la segnalazione è scomparsa.

Grazie, comunque.

Generale / Re:parametri passati per riferimento

« Ultimo post da DragoRosso il Oggi alle 04:58:28 pm »

Prova così:

Codice: [Seleziona]

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
     procedure Cancella(elenco: array of string);
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

var prova: array of string;

{ TForm1 }

procedure TForm1.Cancella(elenco: array of string);
var ID: string;
begin
  for ID in elenco do
   begin
     ///CANCELLA IL RECORD QUI
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(prova, 10);
  ///RIEMPI L'ARRAY
  ///.............
  //Cchiama la canecllazione
  Cancella(prova);
  ///ELIMINA l'ARRAY
  SetLength(prova, 0);
end;

end.

Generale / [Risolto] parametri passati per riferimento

« Ultimo post da petrusic il Oggi alle 03:38:08 pm »

Dovrei richiamare una procedura alla quale passare un array contenente gli ID dei record di Database da eliminare.
Di fronte a tale prospettiva, ho pensato di passare alla procedura che dovrà occuparsi dell'eliminazione concreta dei record interessati, tutti i codici ID da cancellare dentro una variabile di tipo array. Gli array, come meglio chiarito qui, sono passati per riferimento.

Prendendo forza da ciò, ho proceduto a preparare il codice necessario:

Codice: [Seleziona]

var
 . . . 
 striCodId2Canc: String = '';

  tabSplit: TStringArray;
  tbEl: TstringArray;
  tbIDmovimgg: TstringArray;         
 . . .
sql:= 'SELECT movimgg.IdMovvgg AS IDMovimgg, partmovv.IdPartGlob AS IDpartmovv FROM movimgg, partmovv, piancont WHERE movimgg.DtCoMovgg = partmovv.DtCoPartGlob';
    sql:= sql + ' AND movimgg.OraSolMovgg = partmovv.OraSolPartGlob AND movimgg.DtCoMovgg = ' + Form9.dataFin + ' AND movimgg.OraSolMovgg >= 235000 AND movimgg.OraSolMovgg <= 235959';
    sql:= sql + ' AND movimgg.CoVocMovvgg = piancont.NumVoce AND piancont.ContrPartSiNo = "Q" ORDER BY movimgg.NuProMovvgg, movimgg.CoVocMovvgg';
    striCodId2Canc:= PreparaCodIdCanc(sql);  
 . . .
    tabSplit:= striCodId2Canc.Split(chr(13));
    striCodIDmovimgg:= tabSplit[0];     // cioè tutti i codici ID della tabella di DB movimgg
    tbEl:= striCodIDmovimgg.Split(chr(9));
    setLength(tbIDmovimgg, Length(tbEl));
    for i:= 0 to (Length(tbEl) - 1) do
    begin
      tbIDmovimgg[i]:= tbEl[i];
    end;                                       
    CancMovvFinIniAnno(tbIDmovimgg, 'movimgg', 'IdMovvgg');      //  riga 4036
 . . .

Il Compilatore però non è però d'accordo con le mie assegnazioni perchè mi segnala il seguente errore:

Citazione

frm9.pas(4036,37) Error: Incompatible type for arg no. 1: Got "TStringArray", expected "AnsiString"

Ho provato a modificare l'array da "TStringArray" a "AnsiString", ma non ci sono riuscito per chè un tipo di array ansistring non è assegnabile (l'unico che ho trovato è "TAnsiStringBuilder").

Non capisco perchè non posso assegnare un array TStringArray. Pensavo ad un conflitto di assegnazioni nelle variabili dichiarate, ma non ho trovato niente. Non immagino perciò come potere procedere

Databases / Re:dbf

« Ultimo post da antonio63 il Maggio 12, 2024, 07:45:56 pm »

ti ringrazio

Databases / Re:dbf

« Ultimo post da bonmario il Maggio 12, 2024, 06:34:45 pm »

Citazione da: antonio63 - Maggio 12, 2024, 04:23:57 pm

si fino a 10000 dati tutto sommato va bene .va in out of memory se clicchi piu volte per riordino.ho provato a creare 30000 record e da out of memory subito

Ciao,
usavo i DBF in un vecchio progetto, ormai in disuso da almeno 5 anni.
Se non ricordo male, potevi definire più chiavi, e quindi ordinamenti, e passare da una all'altra in maniera abbastanza semplice.

P.S. Allego un manualetto che avevo trovato non ricordo dove. Se lo apri e cerchi "IndexName", è quello di cui sto parlando.
P.P.S. Io lo usavo per cambiare l'ordinamento, e poi il DBF lo leggevo e la cosa funzionava, ma non lo mostravo a video con una DBGrid, quindi non so per certo se funziona o meno anche con quello

Ciao, Mario

Databases / Re:dbf

« Ultimo post da antonio63 il Maggio 12, 2024, 05:12:14 pm »

ti allego codice

Databases / Re:dbf

« Ultimo post da antonio63 il Maggio 12, 2024, 04:23:57 pm »

si fino a 10000 dati tutto sommato va bene .va in out of memory se clicchi piu volte per riordino.ho provato a creare 30000 record e da out of memory subito

Databases / Re:dbf

« Ultimo post da DragoRosso il Maggio 12, 2024, 02:30:24 pm »

Citazione da: antonio63 - Maggio 12, 2024, 08:38:29 am

se posso volevo anche chiedere non essendo possibile almeno da quanto ne so col dbf fare delle query tipo order by cognome per un riordino io ho caricato dbf in bufdataset e da li ho a seconda della colonna cliccata ho riordinato.pero se faccio piu riordini oppure carico abbastanza dati mi esce out of memory.

Qui non riesco ad aiutarti, non uso dbf e nemmeno database non SQL (che non supportano"ORDER BY"). Posso solo dirti che se compare quell'errore è probabile che tu stia usando dei buffer ad allocazione dinamica (size variabile) che non vengono correttamente allocati (o liberati) oppure che ci sia un limite con le strutture DBF (penso che Lazarus sia uno degli ultimi linguaggi a supportare dbf direttamente).

Un'altra possibilità è che tu stia sviluppando una applicazione a 32 bit che esaurisca effettivamente la memoria (però a meno che tu non abbia decina di migliaia di record ne dubito).

Qualcuno del forum, se ha già approcciato queste problematiche, forse potrebbe aiutarti.

Ciao

P.S.: se riporti parte del codice e dove viene generato l'errore magari ci si può ragionare.

Databases / Re:dbf

« Ultimo post da antonio63 il Maggio 12, 2024, 08:38:29 am »

se posso volevo anche chiedere non essendo possibile almeno da quanto ne so col dbf fare delle query tipo order by cognome per un riordino io ho caricato dbf in bufdataset e da li ho a seconda della colonna cliccata ho riordinato.pero se faccio piu riordini oppure carico abbastanza dati mi esce out of memory.

Pagine: [1] 2 3 ... 10

Italian community of Lazarus and Free Pascal

News:

Privacy Policy

Blog italiano

Forum ufficiale

Lazarus 1.0

Progetti Lazarus

Free Pascal

Libri

Utenti

Online

Post recenti

Generale / Re:un blog?

Generale / Re:parametri passati per riferimento

Generale / Re:parametri passati per riferimento

Generale / [Risolto] parametri passati per riferimento

Databases / Re:dbf

Databases / Re:dbf

Databases / Re:dbf

Databases / Re:dbf

Databases / Re:dbf

Databases / Re:dbf

Recenti

How To

Free Pascal DS

Lazarus WEB

Stato

Utenti

Stats

Utenti Online

Disclaimer: