Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: giacomarko - Gennaio 17, 2021, 11:47:15 am

Titolo: Restituire un intero record come funzione
Inserito da: giacomarko - Gennaio 17, 2021, 11:47:15 am
Buongiorno e buona domenica,
è da diverso tempo che sbatto la testa su un problema (almeno per me) senza trovare una soluzione, ma sopratutto senza capire dove sbaglio, certamente qualcuno nel forum potrà aiutarmi,

semplifico brevemente:

ho un form che contiene un DBGrid, lo scopo è quello di mostrare in griglia dati provenienti da diverse query, consentire all'utente ricerca, filtri, odinamento... e alla fine di selezionare il record voluto, e in uscita riportare la chiave primaria del record selezionato alla procedura chiamante.

in pratica questo il codice semplificato

Procedure SelezionaElemento;
  var
    F: TMiaSelezione;
    index:string;
  begin
    F:= TMiaSelezione.Create(nil);

    // passo la query
    F.SetQueryText( 'SELECT ....ecc..ecc', nome_campo_da_ritornare_come_valore);

    F.ShowModal; ... qui l'utente sceglie quello che vuole...

    // in uscita acquisisco il valore del campo voluto relativo, al record selezionato
    index:= F.GetIndexSelected;

    F.Free;

    //...  faccio l'uso di index che mi serve e chiudo
  end;
Il tutto funziona perfettamente.

Cercavo di trovare una soluzione che permettesse di restiruire l'intero record selezionato e non solo un campo, ho provato inizializzando TQuery, TDataSet...tutti in modo analogo a quanto esposto sotto,ma non va

  var
    F: TMiaSelezione;
    index:string;
    query: TQuery;
  begin
    F:= TMiaSelezione.Create(nil);

    // passo la query
    F.SetQueryText( 'SELECT ....ecc..ecc', nome_campo_da_ritornare_come_valore);

    F.ShowModal; ... qui l'utente sceglie quello che vuole...

    // inizializzo una TQuery per memorizzare i dati che verranno selezionati
    query:= TQuery.Create(nil);

    // quì la funzione restituisce la query utilizzata all'interno di TMiaSelezione   
    query:= F.GetQuery;   
   
    // testo l'assegnazione utilizzando la variabile locale e tutto funziona !!
    ShowMessage( query.FieldByName( 'campo_qualsiasi').AsString);

    // ora libero l'oggetto TMiaSelezione
    F.Free;

    // testo l'assegnazione ma questo NON funziona
    ShowMessage( query.FieldByName( 'campo_qualsiasi').AsString);   

    1° ERRORE: Il progetto PhysioDesk ha sollevato una eccezione di classe 'External: SIGSEGV'.
    2° ERRORE: Il progetto PhysioDesk ha sollevato una eccezione di classe 'RunError(216). all'indirizzo 7FBA3A
    3° ERRORE: Il progetto PhysioDesk ha sollevato una eccezione di classe 'EAccessViolation con messaggio : Access violation

    query.Free;

  end;

in pratica, da quello che ho capito, fino a che l'oggetto F è attivo ho accesso al record utilizzando la variabile locale, ma non appena distruggo TMiaSelezione perdo i dati, è come se l'assegnazione nella variabile locale query sia per indirizzo e non passo realmente i dati,

dove sbaglio ?

grazie in anticipo a chi vorrà chiarire

marco

PS: forse non sono stato troppo breve come promesso, ma ho cercato di rendere il quesito più chiaro possibile

Release Lazarus: 2.0.10 del 2021.01.01
Versione FPC: 3.2.0
Componente accesso dati: Zeos Lab
DB: MySQL 5.0
SO: Linux Mint 20
Titolo: Re:Restituire un intero record come funzione
Inserito da: bonmario - Gennaio 17, 2021, 12:29:30 pm
Ciao,
Sarebbe interessante sapere su quale specifica ti segnala gli errori.
Inoltre, quando posti del codice, prima clicca sull'icona del "#", così il codice viene formattato correttamente, ed il tuo messaggio è più capibile !!!

Detto questo, ed in attesa di conoscere la specifica su cui ti da errore, vedo che:
- crei "F"
- crei "query"
- fai la free di "F"
- fai la free di "query"

Normalmente, la sequenza delle "free", deve essere l'inverso di quella delle "create". Nel tuo caso, la cosa corretta sarebbe:
- crei "F"
- crei "query"
- fai la free di "query"
- fai la free di "F"

Prova quindi a spostare "F.Free;" prima dell'ultimo "end;" e dopo "query.Free;"

Ciao, Mario
Titolo: Re:Restituire un intero record come funzione
Inserito da: nomorelogic - Gennaio 17, 2021, 02:48:00 pm
la soluzione di bonmario dovrebbe funzionare

in breve quando esegui
Codice: [Seleziona]
query:= F.GetQuery; 
non viene creata una nuova istanza di TQuery ma viene assegnato un puntatore all'istanza esistente in F

distruggendo F, il puntatore "query" punta ad una istanza che non esiste, da quì l'access violation
Titolo: Re:Restituire un intero record come funzione
Inserito da: giacomarko - Gennaio 17, 2021, 03:14:28 pm
Grazie ad entrambi,

@nomorelogic
questa tua risposta conferma la mia interpretazione, l'assegnazione
Codice: [Seleziona]
query:= F.GetQuery; 
non assegna i valori ma solo l'indirizzo, quindi se distruggo l'oggetto TMiaSelezione (che contiene la query e i dati) di fatto perdo un puntatore, chiaro

@bonmario
l'errore che ho descritto avviene alla seconda chiamata di ShowMessage, dove cerco di accedere alla query interna all'oggetto TMiaSelezione, dopo averlo distrutto.
Codice: [Seleziona]
    
  // inizializzo una TQuery per memorizzare i dati che verranno selezionati
    query:= TQuery.Create(nil);

    // quì la funzione restituisce la query utilizzata all'interno di TMiaSelezione   
    query:= F.GetQuery;   
   
    // testo l'assegnazione utilizzando la variabile locale e tutto funziona !!
    ShowMessage( query.FieldByName( 'campo_qualsiasi').AsString);

    // ora libero l'oggetto TMiaSelezione
    F.Free;

    // testo l'assegnazione ma questo NON funziona
    ShowMessage( query.FieldByName( 'campo_qualsiasi').AsString);   
chiaramente se non distruggo TMiaSelezione ma lo chiamo successivamente a quello di query (come hai suggerito), il tutto funziona,

ma vista in questo modo allora non avrebbe senso creare una variabile query locale per assegnargli il valore di TMiaSelezione.query in quanto potrei tranquillamente utilizzare l'oggetto TMiaSelezione, leggere quello che mi serve e poi distruggerlo.

il che ci porta alla mia domanda iniziale: come posso tenere a disposizione i dati dopo aver distrutto TMiaSelezione ... ammesso che sia possibile ?

In sostanza come si fà a trasferire i dati (solamente il record corrente) al di fuori di TMiaSelezione?

Lo scopo è utilizzarli successivamente, e in un altro ambito, alla distruzione di TMiaSelezione

Marco
Titolo: Re:Restituire un intero record come funzione
Inserito da: bonmario - Gennaio 17, 2021, 06:21:19 pm
Te la salvi a mano ...
Dichiari una struttura che abbia gli stessi campi che hanno i record della query, salvi i valori che vuoi in questa struttura, che crei e distruggi quando vuoi tu.

Ciao, Mario
Titolo: Re:Restituire un intero record come funzione
Inserito da: giacomarko - Gennaio 17, 2021, 09:10:17 pm
ok chiaro, ma non mi và di creare ogni volta le strutture... assegnarle i valori...

Ho trovato una alternativa, non mi riempie di gioia e probabilmente sarà anche poco ortodossa, ma l'ho testata e funziona perfettamente,

solitamente l'inizializzazione della query avviene all'interno dell'oggetto che gestisce la struttura dati, ma come abbiamo visto quando distruggo l'oggetto mi perdo anche la query con i dati,

allora ho pensato di creare la query al di fuori dell'oggetto e passarla come var ... lasciare che l'utente faccia quello che vuole all'interno del form modale,
quando esce posso distruggere l'oggetto tanto la query contiene ora i dati, faccio quello che devo e poi la distruggo io, diciamo un compromesso tra la risposta di bonmario: invertire l'ordine dei distruttori
e quello che volevo fare io, dstruggere subilo la form modale e poi lavorare con i dati  :)

questo un esempio semplificato del codice

Codice: [Seleziona]
...
  MyQuery:= TQuery.Create(nil);
  MyQuery.Text:=  'SELECT ....ecc..ecc';

  MySelezione:= TMySelezione.Create(nil);

  MySelezione.SetQuery( MyQuery,  nome_campo_da_ritornare_come_valore);
  MySelezione.ShowModal;
  MySelezione.Free;

  MyQuery..... faccio quello che devo
  MyQuery.free;
...

come si dice, non sarà il massimo ma fa il suo sporco lavoro

Certo, trovare il modo di "copiare i dati" dall'oggetto non sarebbe male

ciao Marco
Titolo: Re:Restituire un intero record come funzione
Inserito da: nomorelogic - Gennaio 18, 2021, 12:45:53 am
non c'è nulla di sbagliato nel passare un'istanza già esistente

è uno dei tanti approcci e forse è anche il più pratico ;)