Passare dati a un nuovo thread

[Diego1981]

Ciao Ragazzi
avevo una curiosità che non trova risposta 
Creo un nuovo thread, nel costruttore assegno una classe da passare al thread
Come mai la classe nel thread(osservando il debug) perde tutti i dati quando la classe nel tread principale viene eliminata? (almeno penso)
Sto lavorando con il componente http server indy

aggiungo giusto 2 righe di codice
nella form principale
procedure TFR_Principale.HTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
SesThrd:=Tusessionthrd.Create(False,ARequestInfo,AResponseInfo,AContext);
end;

nel thread
constructor Tusessionthrd.Create(CreateSuspended: Boolean;
  RequestInfo: TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo;
  Acontext: TIdContext);
begin
  inherited Create(CreateSuspended);
  ARequestInfo:=TIdHTTPRequestInfo.Create;
  ARequestInfo:=RequestInfo;//provo in questo modo
// ARequestInfo.Assign(RequestInfo);//ho provato anche cosi
.....
....
end;

Quando il Thread passa alla procedura execute nel debug la mia classe Arequestinfo perde tutti i dati, si svuota
Cosa mi perdo?
grazie a tutti

[nomorelogic]

probabilmente (qua mi gioco la reputazione ) l'oggetto ARequestInfo viene distrutto dal thread principale al rientro da Tusessionthrd.Create
quindi il puntatore nel nuovo thread punta ad un oggetto che è stato distrutto

potresti provare:
1) in TFR_Principale.HTTPServerCommandGet, clona ARequestInfo (ad esempio in ThreadSafeARequestInfo)
2) crea il thread con:

Codice: [Seleziona]

SesThrd:=Tusessionthrd.Create(False,ThreadSafeARequestInfo,AResponseInfo,AContext);

3) assicurati che il thread distrugga ThreadSafeARequestInfo quando ha terminato il lavoro

speriamo bene
facci sapere

[Diego1981]

grazie nomore
ora provo ma il dubbio è
se Arequestinfo lo dichiaro nella parte private del mio thread

Tusessionthrd=class(TThread)
    procedure LoginPage;
    ....
    ....
  private
    ARequestInfo:TIdHTTPRequestInfo;
    AResponseInfo:TIdHTTPResponseInfo;
    ....
    ....

come può distruggerlo il thread principale? Non dovrebbe passare ad ARequestinfo le informazioni che vengono allocate in un'altra parte di memoria che ovviamente non corrisponde a quella di RequestInfo (scusa la similitudine dei nomi)
grazie

[nomorelogic]

forse non ho capito bene,
se ARequestInfo lo dichiari in private della classe del thread come fa il thread principale ad accedere al valore? Forse ci sono più dichiarazioni con lo stesso nome, una interna al thread principale ed un'altra nel child thread?

Detto questo può anche essere il thread che, nella sua create (e quindi prima di tornare nel main thread), si fa un clone e se lo conserva per il suo utilizzo (per poi distruggerlo al termine).

Consiglio: Il puntatore nel thread lo chiamerei ThreadRequestInfo.

[Diego1981]

riprovo avendo moficiato i nomi, spero crei meno confusione

form principale

procedure TFR_Principale.HTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
SesThrd:=Tusessionthrd.Create(False,ARequestInfo,AResponseInfo,AContext);
end;

thread Tusessionthrd

Tusessionthrd=class(TThread)
    procedure ....
    ....
    ....
  private
    ThrdARequestInfo:TIdHTTPRequestInfo;
    ....
    ....
  public
    constructor Create(CreateSuspended:Boolean;
ARequestInfo:TIdHTTPRequestInfo;AResponseInfo:TIdHTTPResponseInfo;
      Acontext:TIdContext);

protected
    procedure Execute; override;

  end;
 

constructor Tusessionthrd.Create(CreateSuspended: Boolean;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo;
  Acontext: TIdContext);
begin NEL COSTRUTTORE PASSO LA CLASSE "AREQUESTINFO" CHE ARRIVA DALLA FORM PRINCIPALE ALLA CLASSE PRIVATA "THRDAREQUESTINFO" DEL THREAD
  inherited Create(CreateSuspended);
  ThrdARequestInfo:=TIdHTTPRequestInfo.Create;
  ThrdARequestInfo:=ARequestInfo; NON E' QUI CHE VIENE ALLOCATA IN UNA NUOVA PARTE DI MEMORIA LA NUOVA CLASSE ??O MEGLIO...LA CLASSE COPIATA
....
....
....


vedi se è più chiaro
grazie

[nomorelogic]

constructor Tusessionthrd.Create(CreateSuspended: Boolean;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo;
  Acontext: TIdContext);
begin NEL COSTRUTTORE PASSO LA CLASSE "AREQUESTINFO" CHE ARRIVA DALLA FORM PRINCIPALE ALLA CLASSE PRIVATA "THRDAREQUESTINFO" DEL THREAD
  inherited Create(CreateSuspended);
  ThrdARequestInfo:=TIdHTTPRequestInfo.Create;
  ThrdARequestInfo:=ARequestInfo; NON E' QUI CHE VIENE ALLOCATA IN UNA NUOVA PARTE DI MEMORIA LA NUOVA CLASSE ??O MEGLIO...LA CLASSE COPIATA

Prova così

Codice: [Seleziona]

constructor Tusessionthrd.Create(CreateSuspended: Boolean;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo;
  Acontext: TIdContext);
begin // NEL COSTRUTTORE PASSO LA CLASSE "AREQUESTINFO" CHE ARRIVA DALLA FORM PRINCIPALE
  inherited Create(CreateSuspended);
  ThrdARequestInfo:=TIdHTTPRequestInfo.Create;  // crea nuova istanza e valorizza puntatore
  ThrdARequestInfo.Assign(ARequestInfo); // copia i valori nell'istanza ThrdARequestInfo leggendo da istanza ARequestInfo
  ...

quando mandi in esecuzione vedi se ARequestInfo è valorizzato e se si valorizza ThrdRequestInfo

[Diego1981]

Avevo già provato anche questa forma ma ThrdArequestInfo non si valorizza
 

[nomorelogic]

ARequestInfo è valorizzato?

[xinyiman]

Fai prima a mettere un esempio che replica il problema...così ti possiamo aiutare senza andare alla cieca

[Diego1981]

allora
usando:
ThrdARequestInfo:=TIdHTTPRequestInfo.Create;
ThrdARequestInfo:=ARequestInfo;

ThrdArequestinfo si valorizza (almeno nell' Analizzatore di debug vedo i parametri inviati dalla pagina html) ma come tento di accede and una proprietà dal thread(per esempio ThrdArequestInfo.Document) e non dalla form principale la classe si vuota completamente

mentre usando
ThrdARequestInfo:=TIdHTTPRequestInfo.Create;
ThrdARequestInfo.Assign(ARequestInfo);

ThrdArequestinfo non si valorizza proprio

PS
ciao xiny provo a copiare due righe in nuovo progetto e le mando, grazie
comunque mi sembra di capire che il threadprincipale finisce la sua procedura (CommandGet in questo caso) e ArequestInfo inviato al costruttore del thread si svuoti/annulla/distrugge (come dir si voglia  ) e di conseguenza anche tutto il resto sparisce..... ci potrebbe stare?

[Diego1981]

risolto!!
nomore, approposito di reputazione(la mia), la procedura CommandGet è gia in multithread...azz 

scusate la comfusione

[SB]

ThrdARequestInfo:=TIdHTTPRequestInfo.Create;
ThrdARequestInfo:=ARequestInfo;
 
stai sovrascrivendo un oggetto appena creato nel thread secondario con un riferimento passato dal thread principale che può non avere alcun significato nel thread secondario...
 
mi meraviglio che il debugger faccia vedere qualcosa... probabilmente fa vedere le proprietà dell'oggetto originale fino al refresh della scheda

per funzionare devi creare l'oggetto in memoria condivisa e proteggere l'accesso almeno con una sezione critica

per curiosità, come hai risolto?

[xinyiman]

SB, sai penso ci sia bisogno di un articoletto su questo tema. Te la senti di scrivere qualcosa con un piccolo esempio, almeno anche per il futuro basterà indicare tale articolo per far capire alle persone dove e come agire!

[Diego1981]

Ciao SB
ho risolto rileggendo per la 1000esima volta la procedura CommandGet e provando a mettere uno sleep....ad altre richieste la procedura funzionava perfettamente quindi non c'è bisogno di altri thread
ora però sto litiganto con mysql per il savattaggio dei dati quando ci sono più richieste nello stesso momento da piu pagine (ma questo è un altro problema)
grazie mille comunque

[SB]

Se ho intuito cosa stai facendo...
Attento che lo sleep sospende il thread corrente facendone subentrare un altro, ma è come nascondere la polvere sotto il tappeto... prima o poi il problema salta fuori...
Non ho mai usato la CommandGet, ma se hanno fatto le cose sofisticate e creano un thread separato per ogni richiesta, devi organizzare il codice in maniera tale da risolvere tutto dentro il gestore dell'evento, senza riferimento ad oggetti esterni (es. riferimenti alla connessione al database)
Ricorda che ogni thread "vede" solo ciò che si è creato, e la memoria globale (esplicitamente) condivisa
Gli accessi alla memoria condivisa vanno assolutamente regolati. Il meccanismo più semplice sono le sezioni critiche.
Altra cosa da ricordare è che per questioni di efficienza non tutte le api di sistema o le librerie esterne (es. quelle di accesso ai database) sono previste per il multithreading. Si rischiano dei bei casini.
Bisogna assicurarsi (vedere documentazione, di solito è esplicitamente indicato) che siano multithreading, e se non lo sono bisogna ricorrere ai meccanismi di regolazione disponibili (sezioni critiche, mutex, semafori, ecc)
Infine, per testare il server devi organizzare una batteria di client che vada giù di brutto con le richieste, altrimenti non vedi i possibili problemi e sul più bello si blocca tutto.
Non so se il debugger di Lazarus sia multithreading (mi sembra strano), ma di solito non si riesce a debuggare bene con più thread. Devi ingegnarti a controllare il funzionamento del codice.
Un server è una bella gatta da pelare... buona fortuna...