Insérer/mettre à jour TBlobfield (aka image) à l'aide de paramètres sql

Je veux stocker des images dans une base de données en utilisant sql, mais ne peut pas sembler obtenir que cela fonctionne:

qry.SQL.Clear;
qry.Sql.Add('update tbl set pic = :blobVal where id = :idVal');   
qry.Parameters.ParamByName('idVal')._?:=1;

.Paramètres n'a pas d' .asinteger comme .Param a mais .Param n'est pas compatible avec un TADOquery - pour contourner ce problème, j'ai essayé:

a_TParameter:=qry.Parameters.CreateParameter('blobval',ftBlob,pdinput,SizeOf(TBlobField),Null);
a_TParam.Assign(a_TParameter);
a_TParam.asblob:=a_Tblob;
qry.ExecSql;

Ce n'est pas le travail:

qry.SQL.Clear;
qry.Sql.Add('update tbl set pic = :blobVal where id = 1')
qry.Parameters.ParamByName('blobVal').LoadFromStream(img as a_TFileStream,ftGraphic);//ftblob 
//or 
qry.Parameters.ParamByName('blobVal').LoadFromFile('c:\sample.jpg',ftgrafic);//ftblob
qry.ExecSql;
jetez un oeil à delphi.about.com/od/database/l/aa030601a.htm ou delphi.about.com/library/nosearch/npf030601.htm

OriginalL'auteur Rayman | 2013-10-01

  1. 6

    Doit être quelque chose comme:

    qry.Parameters.Clear; 
qry.Parameters.AddParameter.Name := 'blobVal';
qry.Parameters.ParamByName('blobVal').LoadFromFile('c:\sample.jpg', ftBlob);
//or load from stream: 
//qry.Parameters.ParamByName('blobVal').LoadFromStream(MyStream, ftBlob);
qry.Parameters.AddParameter.Name := 'idVal';
qry.Parameters.ParamByName('idVal').Value := 1;
qry.SQL.Text := 'update tbl set pic = :blobVal where id = :idVal';    
qry.ExecSQL;

    À lire le BLOB de retour à partir de la DB: 

    qry.SQL.Text := 'select id, pic from tbl where id = 1';
qry.Open;
TBlobField(qry.FieldByName('pic')).SaveToFile('c:\sample_2.jpg');
    Il a essayé de l'Erreur:le Paramètre de l'objet mal défini.Les informations incomplètes ou incohérentes ont été fournis.
    J'ai fait un edit (vous n'avez probablement pas spécifié idVal paramètre). essayez-le maintenant. fonctionne très bien pour moi.
    grâce travaille maintenant 🙂

    OriginalL'auteur kobik

  2. 1

    Je suis en utilisant Lazare, pas de Delphi, mais je suppose que c'est généralement la même syntaxe. Si oui, voici une légère amélioration sur kobiks suggestion:

    Paramètres sont ajoutés automatiquement si le SQL.Le texte est attribué avant d'essayer d'attribuer des valeurs aux paramètres. Comme ceci:

    qry.Parameters.Clear; 

qry.SQL.Text := 'update tbl set pic = :blobVal where id = :idVal';    
qry.Parameters.ParamByName('blobVal').LoadFromFile('c:\sample.jpg', ftBlob);
qry.Parameters.ParamByName('idVal').Value := 1;
qry.ExecSQL;

    OriginalL'auteur kapibara

  3. 1

    J'ai écrit cela comme une réponse à ce q,
    Delphi enregistrer paniers enregistrer en tant que blob dans une base de données sql
    ce qui est actuellement considéré comme un double, peut-être mal parce que la technique
    utilisé par les OP comme décrit dans les commentaires semble être correcte. Donc, la cause du problème réside peut-être ailleurs.

    Si le Double drapeau est supprimée, je vais re-poster cette réponse là.

    Le code suivant fonctionne très bien pour moi à l'encontre d'une table Sql Server définis comme indiqué ci-dessous.

    Les données de Rec1 est enregistré dans la table et correctement lu en Rec2.

    (* MS Sql Server DDL
CREATE TABLE [blobs] (
[id] [int] NOT NULL ,
[blob] [image] NULL ,
CONSTRAINT [PK_blobs] PRIMARY KEY  CLUSTERED
(
[id]
)  ON [PRIMARY]
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO
*)
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
qBlobInsert: TADOQuery;
qBlobRead: TADOQuery;
Button1: TButton;
procedure Button1Click(Sender: TObject);
[...]
type
TMyRecord = packed record
FontName: string[30];
FontSize: word;
FontColor: integer;
FontStyle: word;
Attachement: string[255];
URL: string[255];
end;
const
scInsert = 'insert into blobs(id, blob) values(:id, :blob)';
scSelect = 'select * from blobs where id = %d';
procedure TForm1.Button1Click(Sender: TObject);
begin
TestInsert;
end;
procedure TForm1.TestInsert;
var
Rec1,
Rec2 : TMyRecord;
MS : TMemoryStream;
begin
FillChar(Rec1, SizeOf(Rec1), #0);
FillChar(Rec2, SizeOf(Rec2), #0);
Rec1.FontName := 'AName';
Rec1.URL := 'AUrl';
MS := TMemoryStream.Create;
try
//Save Rec1 using an INSERT statement
MS.Write(Rec1, SizeOf(Rec1));
MS.Seek(0, soFromBeginning);
qBlobInsert.Parameters[0].Value := 1;
qBlobInsert.Parameters[1].LoadFromStream(MS, ftBlob);
qBlobInsert.SQL.Text := scInsert;
qBlobInsert.ExecSQL;
//Read saved data back into Rec2
qBlobRead.SQL.Text := Format(scSelect, [1]);
qBlobRead.Open;
MS.Clear;
TBlobField(qBlobRead.FieldByName('blob')).SaveToStream(MS);
MS.Seek(0, soFromBeginning);
MS.Read(Rec2, MS.Size - 1);
Caption := Rec2.FontName + ':' + Rec2.URL;
finally
MS.Free;
end;
end;

    Extrait de DFM

    object qBlobInsert: TADOQuery
Connection = ADOConnection1
Parameters = <
item
Name = 'id'
DataType = ftInteger
Value = Null
end
item
Name = 'blob'
DataType = ftBlob
Value = Null
end>
Left = 56
Top = 32
end

    OriginalL'auteur MartynA