Como conseguir mostrar um campo memo com BDS 20006?

Ok pessoal, vou compartilhar aqui o que consegui resolver, pelo menos está a funcionar agora.

Campos memo no Access e em outros databases eu acho, não testei, não pode ser inserido diretamente como string, tem que ser como uma array of char, e o parametro tem que ser blob e o subtype stMemo no BdpAdapter ou no BdpCommand na parte parameters você define isso, feito a definição de parâmetros, segue o código, isso é da minha estrutura, mas o trecho que grava no memo pode ser adaptado.

//Gravar dados e o memo também.
procedure TWebForm1.Insert;
var
ArrayofChar : Array of Char;
i : integer;
Texto : String;
begin
BdpConnection1.Open;
with BdpDataAdapter1.InsertCommand do
try
Parameters[´CODIGO_TOPICO´].Value := DropDownList1.SelectedValue;
Parameters[´TITULO_MATERIA´].Value := tbTituloChamada.Text;
Parameters[´SUB_TITULO´].Value := tbChamadaCurta.Text;

//Pega o texto
Texto := tbMateriaCompleta.Text;
SetLength(ArrayofChar, Length(texto));

//Varre o texto e jogas os caracteres na array
for i:= 1 to Length(texto) do
ArrayofChar[i-1]:= texto[i];

//Depois joga direto no parametro, já era, tá feio
Parameters[´CONTEUDO_MATERIA´].Value := ArrayofChar;


Parameters[´LEGENDA_FOTO´].Value := tbLegendaFoto.Text;
Parameters[´HORA_MATERIA´].Value := System.DateTime.Now.ToString;
Parameters[´DATA_MATERIA´].Value := System.DateTime.Today.ToString;
ExecuteNonQuery;
finally
BdpConnection1.Close;
end;
end;

Para visualizar foi feita uma função.

function TWebForm1.InsertBlobAsText(DataItem:TObject): string;
var
st : String;
type
TArrayOfChar = Array Of Char;
begin
st := Convert.ToString(TArrayOfChar(DataItem));
result := st;
end;


neste caso eu estava a utilizar um DataGrid, criei um databound refereciando o campo memo, depois eu o transformei como ItemTemplate, feito isso vá no arquivo aspx e insira a função direto no html onde faz referência ao campo que deseja mostrar, conforme mostrado abaixo.

<Columns>
<ASP:TemplateColumn>
<ItemTemplate>
<asp:Label runat=´server´ text=´<¬#
InsertBlobAsText(DataBinder.Eval(Container, ´DataItem.CONTEUDO_MATERIA´))
¬>´></asp:Label>
</ItemTemplate>
</ASP:TemplateColumn>
</Columns>

Pronto, já era, é só rodar e veja o seu dagrid mostrando dados do campo
memo.

Que desgraça, não se acha quase nada de exemplos em Delphi.NET na internet pra fazer isso, perdi o dia hoje com isso, claro também to estudando o framework, demora sacar um pouco as coisas, mas o website tá saindo, e não um sistema, to fazendo tudo com webstandards.

Algo tão trivial não deveria ser complicado implementar, digo trabalhoso,
pois em PHP isso é muita moleza fazer.


Falowz,

Toninho Nunes

Este post é muito util, porém como o componente que recebe o texto do memo é um label, ele não tem quebra de linhas. No BD está gravado com os caracteres de quebra de linha, mas o problema é que qdo mostrado no label fica uma coisa só... tudo sem quebras de linhas. Alguém tem alguma sugestão???

Eu vi num outro post o seguinte



Mas na hora da execução não aceita esta função ´replace´. Então não sei como implementar esta parte pois ainda sou iniciante no asp.net.

Obrigado

Eu vi num outro post o seguinte



Mas na hora da execução não aceita esta função ´replace´. Então não sei como implementar esta parte pois ainda sou iniciante no asp.net.

Obrigado

<asp:Label ID="lblTexto" runat="server" 

CssClass="corpo_texto1" Text=´<¬ replace(DataBinder.eval(Container, "DataItem.TEXTO_CATEGORIA"),vbcrlf,"<br />") ¬>´ 

Width="381px"></asp:Label>