PCからデータベースblobフィールドに.bmpを保存しようとしています

Question

私のPCから.bmpをblobフィールドを含むデータベースに保存しようとしています。

私は現在、ここからのコードで働いています：

How to insert image into database using TADOQuery Component Only

私は新しいフォームを作成し、そこに必要なコンポーネントを追加しました。それは次のものが含ま

• ：3 TButton、1 TOpenDialogと1 TImage
• ボタンSalveaza（保存）Button3あるとModalResultを持って

  これは、フォームがどのように見えるかですmrOk

• ボタンIncarca Im agine（ロードイメージ）Button1
• ボタンがをキャンセルさCancelプロパティがチェックさとmrAbort

からModalResultセットIncarcaは（ボタン1を）想像するコードボタンを持っている、Button2ですこれはです：

procedure TaddImagineForm.Button1Click(Sender: TObject); 
begin 
    if OpenDialog1.Execute then 
    begin 
     Image1.Picture.LoadFromFile(OpenDialog1.FileName); 
    end; 
end; 

Salveaza（ボタン3）という名前のボタンのコードは次のとおりです。

私は私は他のものと一緒に、 Data moduleに位置しています（comenziQuery という名前）を使用してい

procedure TaddImagineForm.Button3Click(Sender: TObject); 
var 
      Field: TBlobField; 
      Stream: TStream; 
begin 
      if dbmodule.comenziQuery.Active and (Image1.Picture.Graphic <> nil) then 
      begin 
      dbmodule.comenziQuery.Insert; 
      Field := TBlobField(dbmodule.comenziQuery.FieldByName('pscreen')); // ensure it ís a blob 
      Stream := dbmodule.comenziQuery.CreateBlobStream(Field, bmWrite); 
      try 
       Image1.Picture.Graphic.SaveToStream(Stream); 
      finally 
       Stream.Free; 
       dbmodule.comenziQuery.Post; 
      end; 
      end; 
end; 

• TSQLQuerydbmodule（のようなDataSourceは、DataSet、SQLConnectionなど...）データモジュールの名前は
• データベース内の列を使用して、その.bmpイメージは、pscreenという名前で、mediumblobタイプに設定されています。

は何（ビューのおそらく私の初心者のポイントに）起こるべき

• 今含まれている必要があり、選択した行のpscreenという名前blobフィールド。私はIncarcaは、私は、フォームを閉じる保存ボタンをクリックしますが、選択された行は、」doesnの後は、実際に
  • をhapenning何ボタン

  を想像してみて押すことによって、私のTOpenDialogで以前に選択したBMPそのBLOBフィールドのbmpイメージで更新されます。エラーなし、警告なし、何もありません。その行のフィールドはNULLのままです。彼は私が新しいレコードを追加挿入し、使用していることを指摘したコメントにDsmをへ

EDIT

おかげで、私が選択してるものを更新していません。 私はこの行を参照しています：dbmodule.comenziQuery.Insert; 私は選択しているレコードを更新するために何とかコードを変更する必要があります。

Delphi/SQLの初心者ですので、私は壁に頭を打つと正反対のことをしているように思えば謝罪します。私はRAD Studioの10シアトルを使用してい

データベースはMYSQLで、データベースコンポーネントがdbmoduleというデータモジュール上に位置しており、次のものが含まれている：TSimpleDataSet、TSQLQuery、TDataSource、TSQLConnection - 彼らはdbExpressコンポーネントです。

ありがとうございました！

Answer 1

次のコードでは、働いていたと私はちょうどDataSetを使用してクエリを使用して交換し、それはそれを解決したようだ

procedure TaddImagineForm.Button3Click(Sender: TObject); 
var 
      Field: TBlobField; 
      Stream: TStream; 
begin 
      dbmodule.comenziDataSet.Active := True; 
      if (Image1.Picture.Graphic <> nil) then 
      begin 
      dbmodule.comenziDataSet.Edit; 
      Field := TBlobField(dbmodule.comenziDataSet.FieldByName('pscreen')); // ensure it ís a blob 
      Stream := dbmodule.comenziDataSet.CreateBlobStream(Field, bmWrite); 
      try 
       Image1.Picture.Graphic.SaveToStream(Stream); 
      finally 
       Stream.Free; 
       dbmodule.comenziDataSet.Post; 
      end; 
      end; 
end; 


end. 

を必要な機能を提供することに成功した、また、/質問私のオリジナルのポストは間違っていました私は問題を混乱させてきたので。それでも、誰かが同じことをするのに良い。 Sertac Akyuzへ

おかげ