valor do campo

Question

como eu posso passsar para uam vari�vel o valor de um campo?

ex, o ponteiro do bd de um dbnavigator est� na linha 20 do banco de dados.Digamos que nesta linha, o valor de uma coluna chamada �nome� estaja o valor �delphi�.

Como eu posso passar esse valor para uma vari�vel qualquer?

Ddoliv · Answer

� que eu estou tentando montar um cat�logo!

da� eu fiz o seguinte, tenho v�rias bmps numa dll, da� eu quero carregar a imagem ao se mexer no dblookuplistbox.

O que eu fiz?isso:

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
bit := �BITMAP_� + inttostr(Table1.FieldValues[�num�]);

//seria assim:
//Image1.picture.bitmap.Handle := LoadBitmap(LoadLibrary(�pic.dll�),��);
//da� eu fiz assim:
Image1.picture.bitmap.Handle := LoadBitmap(LoadLibrary(�pic.dll�),bit);

s� que d� erro, fala que � incompat�veu string (o bit) com o PChar(que seria o �BITMAP_1�) ;

algu�m tem alguma solu��o?o que eu quero fazer � isso, fazer que qd mexer no data a img mude para o BITMAP numa dll correspondente ao campo num.
end;

end;

Aroldo Zanela · Answer

Colega,[code:1:d5d9a8432b]var dllHandle: THandle; thisBitmap: TBitmap;begin dllHandle := LoadLibrary(�pic.dll� ); // Pega o handle da sua dll if dllHandle <> 0 then try thisBitmap := TBitmap.Create; // Instancia o objeto da classe TBitMap try thisBitmap.Handle := LoadBitmap(dllHandle, �BITMAP_� + inttostr(Table1.FieldValues[�num�&93;)); // Carrega a imagem do banco de dados if thisBitmap.Handle <> 0 then Image1.Picture.Bitmap.Assign(thisBitmap); // Atribui e exibe a imagem finally thisBitmap.Free; end; finally FreeLibrary( dllHandle ); end;end;[/code:1:d5d9a8432b]...

Ddoliv · Answer

mais acontece que n�o � compat�vel String com PChar aqui:

thisBitmap.Handle := LoadBitmap(dllHandle, �BITMAP_� + inttostr(Table1.FieldValues[�num�]));

n�o adianta transformar o valor do campo para string, d� erro, o mesmo erro q tava dando comigo..

alguma solu��o?

F�rum valor do campo #163803