Fórum Gravar e exibir imagem JPG no MySQL, problema com código! #348267

procedure TFormPrincipal.Wallpaper1Click(Sender: TObject);
Var
 FileStream : TFileStream;
 BlobStream : TStream;

begin
      //Inicia a consulta SQL
      DM.SQLQuerySenhasdeAcesso.Active := False;
      DM.SQLQuerySenhasdeAcesso.SQL.Clear;
      DM.SQLQuerySenhasdeAcesso.SQL.Add(´SELECT * FROM SENHAS_DE_ACESSO WHERE CODIGO =´);
      DM.SQLQuerySenhasdeAcesso.SQL.Add(RecebeIDOperador);
      DM.SQLQuerySenhasdeAcesso.Open;
      DM.SQLQuerySenhasdeAcesso.Active := True;

  inherited;
  if DM.SQLQuerySenhasdeAcesso.State = dsinactive then
  begin
     MessageDlg(´Abra um registro antes de alterar os dados!´,mtinformation,[mbok],0);
     exit; 
  end;

  if not (DM.SQLQuerySenhasdeAcesso.State in ([dsEdit,dsInsert])) then
      DM.DataSourceSenhasdeAcesso.DataSet.Edit;

  if OpenPictureDialogVendaseServicos.Execute Then
   begin
   try 
    FileStream:=TFileStream.Create(OpenPictureDialogVendaseServicos.FileName,
                fmOpenRead or fmShareDenyWrite);
    BlobStream := DM.DataSourceSenhasdeAcesso.DataSet.CreateBlobStream(DM.DataSourceSenhasdeAcesso.DataSet.FieldByName(´WALLPAPER´),bmWrite);
   try
    BlobStream.CopyFrom(FileStream,FileStream.Size);
   finally
    FileStream.Free;
    BlobStream.Free; 
   end;
   except
     ShowMessage(´Problemas com memória.´);
   end;
  end;

procedure TFormPrincipal.FormCreate(Sender: TObject);
var
   B : TStream;
   JPG: TJPEGImage;

begin
//Este procedimento carrega a imagem do plano de fundo do FrmPrincipal do sistema
//Inicia a consulta SQL
DM.SQLQuerySenhasdeAcesso.Active := False;
DM.SQLQuerySenhasdeAcesso.SQL.Clear;
DM.SQLQuerySenhasdeAcesso.SQL.Add(´SELECT * FROM SENHAS_DE_ACESSO WHERE CODIGO =´);
DM.SQLQuerySenhasdeAcesso.SQL.Add(RecebeIDOperador);
DM.SQLQuerySenhasdeAcesso.Open;
DM.SQLQuerySenhasdeAcesso.Active := True;
DM.ClientDataSetSenhasdeAcesso.Active := True;

ImageFormPrincipal.Picture.Assign(nil);
JPG := nil;
B := DM.ClientDataSetSenhasdeAcesso.CreateBlobStream(DM.ClientDataSetSenhasdeAcesso.FieldByName(´WALLPAPER´), BMREAD);
IF B.Size > 0 THEN
   BEGIN
      try
      JPG := TJpegImage.Create;
      JPG.LoadFromStream(B);
      ImageFormPrincipal.Picture.Assign(JPG);
      except
      end;
   end
else
ImageFormPrincipal.Picture.Assign(nil);
JPG.Free;
B.Destroy; 
end;