Delphi sql server

Fermé
fatehnews Messages postés 48 Date d'inscription jeudi 10 janvier 2013 Statut Membre Dernière intervention 19 avril 2017 - Modifié par fatehnews le 6/05/2014 à 15:18
j'ai une base de donnee sous sql server 2008 ,et dans une table j'ai déclarer un champ de type image , et dans l'interface delphi on fesant appelle a la procedure stocke qui fait l'insertion des enregistremens mais j'arive pas a inserer ce type de donnee voici mon exemple :

procedure TForm1.Button1Click(Sender: TObject);
begin
If OpenPictureDialog1.Execute then
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Dateseparator:='/';
ShortDateFormat:='DD/MM/YY';
self.ADOStoredProc1.ProcedureName:='InsertRest';
self.ADOStoredProc1.Parameters.Refresh;
self.ADOStoredProc1.Parameters.ParamByName('@NumRest').Value:=strtoint(edit1.Text);
self.ADOStoredProc1.Parameters.ParamByName('@Nomrest').Value:=edit2.Text;
self.ADOStoredProc1.Parameters.ParamByName('@Horaires').Value:=edit3.Text;
self.ADOStoredProc1.Parameters.ParamByName('@Codepostal').Value:=strtoint(edit4.Text);
self.ADOStoredProc1.Parameters.ParamByName('@Adresse').Value:=edit5.Text;
self.ADOStoredProc1.Parameters.ParamByName('@StationArrivée').Value:=edit6.Text;
self.ADOStoredProc1.Parameters.ParamByName('@Illustration').LoadFromFile('C:\Documents and Settings\poste7a\Mes documents\Mes images\Nouvelle image (7)');
self.ADOStoredProc1.Parameters.ParamByName('@message').Value:='message';
self.ADOStoredProc1.ExecProc;
showmessage (ADOStoredProc1.Parameters.ParamValues['@message']);
end;

end.


et cella c'est la procedure stocké
create proc InsertRest @NumRest int,@Nomrest varchar(20),@Horaires varchar(6),@Codepostal int,
@Adresse varchar(30),@Illustration image,@StationArrivée varchar(3),@message varchar (50) out
as
set @message='LeRestaurant '+@Nomrest+' Numéro : '+CONVERT(varchar,@NumRest)+' à bien été insérer '