Hola a tod@s !
Mucho tiempo si pasar por aquí por mi parte ! .... pero siempre sigo con un ojo puesto en el foro. Hoy tengo una pequeña duda y recurro de nuevo a todos vosotros. Gracias por adelantado.
Tengo un WebBrowser que muestra un texto HTML, y quiero grabar dicho contenido en mi base de datos. Siempre ha funcionado correctamente hasta que he pasado a XE2 y trabajar con el alfabeto cirílico.
He llegado a acotar el problema a las siguientes líneas :
Código Delphi
[-]
iall := (WebBrowser1.Document as IHTMLDocument2).Body;
While iall.parentElement <> nil do
iall := iall.parentElement;
Aux_Memo := TMemo.Create(Self);
Aux_Memo.Text := iall.outerHTML;
f := TMemoryStream.Create;
Aux_Memo.Lines.SaveToStream(f);
Memo1.Text := Aux_Memo.Text;
f.seek(0,soFromBeginning);
Memo2.Lines.LoadFromStream(f);
Siendo iall del tipo IHTMLElement.
Memo1 me muestra los caracteres cirílicos correctamente :
Cita:
<TD class=s7 colSpan=22>Tenemos que comunicarle algo en Ruso : Давайте посмотрим, работает ли он
|
Pero Memo2 sólo me muestra ??????? ...
Cita:
|
<TD class=s7 colSpan=22>Tenemos que comunicarle algo en Ruso : ??????? ?????????, ???????? ?? ??</TD>
|
Llevo todo el día de ayer intentando buscarle una explicación y una solución, pero no logro dar con ella.
De nuevo, muchas gracias por vuestros comentarios.
Saludos