para guardarlo:
adoQrCandidatos.edit;
TBlobField(adoQrCandidatos.FieldByName('imsspdf')).LoadFromFile(OpenDialog1.FileName);
adoQrCandidatos.post;
para leerlo:
procedure TfrmGestionarCandidato.SpeedButton4Click(Sender: TObject);
var
St:Array [0..255] of char;
archivo : string;
begin
archivo := adoQrCandidatos.FieldByName('idCandidato').asstring+'.pdf';
TBlobField(adoQrCandidatos.FieldByName('imsspdf')).SaveToFile('c:\temp\'+archivo) ;
ShellExecute(Handle,'open',StrPCopy(St,'c:\temp\'+archivo),nil,nil,SW_SHOW);
end;
|