3 respuestas en este tema

[TiammatMX]

Buena tarde, jóvenes ilustres..., aquí, yo otra vez, con una pregunta compleja y para la que no tengo la menor idea de cómo resolver.

Les platico. Tengo una función dentro de una pantalla que me DEBERÍA devolver un TStringStream con el contenido de varios campos que contienen texto enriquecido (sí, ese que va dentro de los TRichEdit's) ordenados y listos para ser añadidos a un TRichEdit en una pantalla:

delphi

.
.
.
 
          redtResumenEventos.Lines.Clear;
          redtResumenEventos.Lines.LoadFromStream(DevuelveResumenEventos(x1,x2,x3));
          redtResumenEventos.Refresh;
.
.
.

... y la función que estoy llamando es la siguiente:

delphi

function DevuelveResumenEventos(cnnBBDD : TADOConnection;sFecha,sHora,sCtrlPac : string) : TStream;
var
   sTextoArmado : string;
   stCarga : TStringStream;
begin
   with TADOTable.Create(Application.MainForm) do
   try
      sTextoArmado := '';
      Connection := cnnBBDD;
      TableName := 'EAPC_EVENTOS';
      Filter := 'EAPC_FECHA = '+sFecha+' and EAPC_HORA = '+sHora+' and EAPC_CTRL_PAC = '+sCtrlPac;
      Filtered := True;
      Open;
      while not Eof do
      begin
         sTextoArmado := sTextoArmado + FormatDateTime('dd-mm-yyyy', FieldValues['EAPC_FECHA_EVENTO'])+
                         ' '+MinutsToStr(FieldValues['EAPC_HORA_EVENTO'])+
                         '  ('+Trim(FieldValues['EAPC_LOGIN_USER'])+
                         ') - '+FieldByName('EAPC_EVENTO').AsString+CRLF+CRLF;
 
         Next;
      end;
 
      stCarga := TStringStream.Create(EmptyStr);
      with TRichEdit.Create(Application.MainForm) do
      begin
         Text := sTextoArmado;
         Lines.SaveToStream(stCarga);  // <<--- ¡¡Ésta línea!!
      end;
   finally
      Close;
      Free;
   end;
   Result := stCarga;
   stCarga.Free;
end;

En la línea marcada es donde me brinca el error que muestro en la imagen..., si alguien tuviese alguna idea que me ayude a solucionar éste problema, será recompensado con mi eterna gratitud, por que llevo algo así como 4 horas y no alcanzo a resolver, especialmente después de haber consultado como 10 web y dos manuales.

Archivos adjuntos

•  3583_f0cc11649f1ed5479c96673dbd85c4607eb398d0.jpg   18,81KB   4 descargas

[Héctor Randolph]

Mi primer intento sería algo como esto:

delphi

      with TRichEdit.Create(Application.MainForm) do
      begin
         Parent:=Application.MainForm;
         Text := sTextoArmado;
         Lines.SaveToStream(stCarga);  // <<--- ¡¡Ésta línea!!
      end;

Es decir, asignarle una ventana padre pues el mensaje de error dice precisamente eso, que no has asignado un formulario al control. No sé que efectos visuales inesperados pueda traer como consecuencias, pero para evitar que se muestre el control RichEdit podrías poner la propiedad Visible en Falso por ejemplo.

Revisando tu código creo que te pueden saltar otras excepciones, veo que devuelves stCarga y justo después liberas la memoria, esto seguramente te va a producir un access violation. Lo correcto es crearlo y después desde la función que lo llama destruirlos cuando ya no lo utilices.

Veo también que creas el control RichEdit pero no lo liberas.

Saludos

[TiammatMX]

Mi primer intento sería algo como esto:

delphi

      with TRichEdit.Create(Application.MainForm) do
      begin
         Parent:=Application.MainForm;
         Text := sTextoArmado;
         Lines.SaveToStream(stCarga);  // <<--- ¡¡Ésta línea!!
      end;

...

Listo, añadí la línea y no apareció más la excepción de la imagen...

...Revisando tu código creo que te pueden saltar otras excepciones, veo que devuelves stCarga y justo después liberas la memoria, esto seguramente te va a producir un access violation...

Justamente, éso pasó, una horrorosa excepción. Elimino la línea y ya no aparece la excepción...

...Veo también que creas el control RichEdit pero no lo liberas...

Liberado.


Ahora, al final de todo, el resultado es que stCarga ¡¡SALE VACÍO!! de la función...

delphi

function DevuelveResumenEventos(cnnBBDD : TADOConnection;sFecha,sHora,sCtrlPac : string) : TStream;
var
   sTextoArmado : string;
   stCarga : TStringStream;
begin
   with TADOTable.Create(Application.MainForm) do
   try
      sTextoArmado := '';
      Connection := cnnBBDD;
      TableName := 'EAPC_EVENTOS';
      Filter := 'EAPC_FECHA = '+sFecha+' and EAPC_HORA = '+sHora+' and EAPC_CTRL_PAC = '+sCtrlPac;
      Filtered := True;
      Open;
      while not Eof do
      begin
         sTextoArmado := sTextoArmado + FormatDateTime('dd-mm-yyyy', FieldValues['EAPC_FECHA_EVENTO'])+
                         ' '+MinutsToStr(FieldValues['EAPC_HORA_EVENTO'])+
                         '  ('+Trim(FieldValues['EAPC_LOGIN_USER'])+
                         ') - '+FieldByName('EAPC_EVENTO').AsString+CRLF+CRLF;
 
         Next;
      end;
 
      stCarga := TStringStream.Create(EmptyStr);
      with TRichEdit.Create(Application.MainForm) do
      begin
         Parent := Application.MainForm;
         Text := sTextoArmado;
         Lines.SaveToStream(stCarga);
         Free;
      end;
   finally
      Close;
      Free;
   end;
   Result := stCarga;
end;

[Héctor Randolph]

La verdad es que veo muchos atajos, por ejemplo:

Aquí creas un TStringStream vacío

delphi

   stCarga := TStringStream.Create(EmptyStr);

Pero en su lugar podrías hacer esto:

delphi

stCarga := TStringStream.Create(sTextoArmado);

Y devolver stCarga sin pasar por el RichEdit.

Y antes que eso, si la función DevuelveResumenEventos la modificas para devolver un String directamente sin pasa por TStream, entonces puedes devolver el contenido de sTextoArmado y hacer algo como esto:

delphi

          redtResumenEventos.Lines.Clear;
          redtResumenEventos.Lines:=DevuelveResumenEventos(x1,x2,x3);
          redtResumenEventos.Refresh;

¿Porqué la necesidad de utilizar un TStringStream? Tal vez algo relacionado con el formato del RichtEdit.