Por Dios.... que forma de currarse el código, la proxima vez usa
[ delphi ]
tu codigo aqui
[ /delphi ]
quitando los espacios dentro de los corchetes, te será más libiano.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var m, f: TStream; s:
string;begin
if OpenPictureDialog1.Execute then begin
IBDataSet1.Edit; m:= IBDataSet1.CreateBlobStream(IBDataSet1FOTO, bmWrite);
f:= TFileStream.Create(OpenPictureDialog1.filename, fmOpenRead);
m.CopyFrom(f,
f.Size);
s:=
AnsiUpperCase(ExtractFileExt(OpenPictureDialog1.FileName));
if s='.JPEG' then
s:= '.JPG';
IBDataSet1FORMATO_FOTO.AsString:=
Copy(s,2,3);
IBDataSet1.Post;
f.Free;
m.Free; end
Saludos