Fórum Gravar e Ler imagen em SQL com Delphi #417907

procedure TForm1.Button2Click(Sender: TObject);
var
Qry : Tsqlquery;
wtipo,windex,wcaminho:string;
begin

  Qry:= TsqlQuery.Create(Self);
  Qry.SQLConnection:=SqlConnection1;
  adoconnection1.Connected:=true;
  SqlConnection1.Connected:=true;

  adoquery1.Close;  adoquery1.SQL.Clear;
  adoquery1.SQL.Add(Select *from Items);
  adoquery1.Open;


  while adoquery1.Eof = false do begin
    wtipo:=formatfloat(00,adoquery1.fieldbyname(TP).asfloat);
    windex:=formatfloat(00,adoquery1.fieldbyname(ID).asfloat);
    wcaminho:=C:\EditorBeta\Images\Items\Geral\+wtipo+windex+.png;

    if fileexists(wcaminho) = false then begin
       wcaminho:=C:\EditorBeta\Images\Items\Geral\semphoto.png;
    end;

    edit1.Text:=wcaminho;
    edit1.Update;
    with Qry do begin
      close;
      Sql.Clear;
      Sql.Add( Insert into ItemsImage (id,tp,image) values ();
      sql.Add(:id,:tp,:image));
      Params.ParamByName(id).AsInteger:=strtoint(windex);
      Params.ParamByName(tp).AsInteger:=strtoint(wtipo);
      Params.ParamByName(image).LoadFromFile(wcaminho,FtBlob);
      ExecSQL;



    end;


    adoquery1.Next;
  end;
  FreeandNil(Qry);

  showmessage(Pronto!);

end;

procedure TForm1.Button3Click(Sender: TObject);
var
  pngFoto: TPNGObject;
  msFoto: TMemoryStream;
  Qry : Tsqlquery;
begin

  msFoto:=TMemoryStream.Create;
  Qry := Tsqlquery.Create(self);
  Qry.SQLConnection:=SqlConnection1;
  adoconnection1.Connected:=true;
  SqlConnection1.Connected:=true;

  with Qry do
    begin
      close;
      Sql.Clear;
      Sql.Add(Select image From ItemsImage Where id = + QuotedStr(editwid.Text));
      sql.Add( and tp =+quotedstr(editwtp.Text));
      open;
    end;

  if Qry.RecordCount = 0 then
    begin
      exit;
    end;

  TGraphicField(Qry.FieldByName(image)).SaveToStream(msFoto);

  msFoto.Position:=0;
  pngFoto:=TPNGObject.Create;
  pngFoto.LoadFromStream(msFoto);
  image1.Picture.Graphic:=pngFoto;

  msFoto.Free;


end;