he intentado ambos codigos pero me sigue regresando el mismo error le hice algunas correcciones y lo deje asi:
Código Delphi
[-]procedure TForm1.Button2Click(Sender: TObject);
var
m, f: TStream;
s: string;
begin
if OpenPictureDialog1.Execute then
begin
IBDataSet1.Edit;
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
f:= TFileStream.Create(OpenPictureDialog1.filename, fmOpenRead);
form1.IBDataSet1FOTO.LoadFromStream(f);
form1.IBDataSet1NOMBRE.AsString:=edit1.Text;
form1.IBDataSet1APELLIDO.AsString:=edit5.Text;
form1.IBDataSet1GRADO.AsString:=edit2.Text;
form1.IBDataSet1TURNO.AsString:=edit3.Text;
form1.IBDataSet1CODIGO.AsInteger:=strtoint(edit4.Text);
IBDataSet1.Post;
f.Free;
m.Free;
end;
end;
Eso despues de haber estado jugando con las sintaxis por varias horas pero sigue retornando el mismo error no se que esta mal la verdad.
muchas gracias por sus respuestas espero por favor sigan respondiendo
gracias