ituneksa wrote:
Hi
Ho to save DBImageEh in MS SQL database using code(delphi) without using DataSource properties
Best Regards
{TO SAVE}var
MS: TMemoryStream;
begin
if Assigned(Imagem.Picture.Graphic) then
begin
MS := TMemoryStream.Create;
try
Imagem.Picture.Graphic.SaveToStream(MS);
TBlobField(TbCadastro.FieldByName('CLI_IMAGEM')).LoadFromStream(MS);
finally
MS.Free;
end;
end
else if TbCadastro.State = dsEdit then
TbCadastro.FieldByName('CLI_IMAGEM').Value := Null;
TbCadastro.Post;
end;
{TO LOAD}var
MS: TMemoryStream;
Wic: TWICImage;
begin
if TbCadastro.FieldByName('CLI_IMAGEM').Value = Null then
Imagem.Picture.Graphic := nil
else
begin
MS := TMemoryStream.Create;
try
TBlobField(TbCadastro.FieldByName('CLI_IMAGEM')).SaveToStream(MS);
Wic := TWICImage.Create;
try
Wic.LoadFromStream(MS);
Imagem.Picture.Assign(Wic);
finally
Wic.Free;
end;
finally
MS.Free;
end;
end;
end;