Discussion :

[MIWAN]

bonjour a toutes et tous

j'essaye d'adopter ce code en delphi7 pour inserer des images a une base access mais en execution et on chargeant une JPEG je reçoie un message d'erreur :

impossible d'affecter Tpicture à TGpegimage

le code

Code delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
USES Jpeg

Table.ext= extentions
Table.ph=photos

procedure TForm1.Button1Click(Sender: TObject);
var
        filename,Ext_name:string;
        StringStream1:TStringStream;
        jpeg1:TJPEGImage;
begin
if Opendialog1.Execute then
        if OpenDialog1.FileName<>'' then
                begin
                filename:=OpenDialog1.FileName;

                ADOQuery1.close;
                ADOQuery1.sql.Clear;
                ADOQuery1.sql.add('insert into Pictures values(:Ext,: Ph)');

                //extraction
                Ext_name:=copy(ExtractFileExt(filename),2,3);
                
                ADOQuery1.Parameters.ParamByName('Ext').value:=Ext_name;

                //bmp
                if Ext_name='bmp' then
                begin
                ADOQuery1.Parameters.ParamByName('Ph').Assign(Image1.Picture);
                ADOQuery1.ExecSQL;
                end;

                //jpg
                if Ext_name='jpg' then
                        begin
                        StringStream1:=TStringStream.create('');
                        jpeg1:=Tjpegimage.Create;
                        jpeg1.Assign(Image1.Picture);
                        jpeg1.SaveToStream(StringStream1);
                        ADOQuery1.Parameters.Parambyname('Ph').value:=StringStream1.DataString;
                        ADOQuery1.ExecSql;
                        StringStream1.Free;
                        jpeg1.free;
                        end;
                end;


end;

merci de bien vouloir m'aider