+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : عرض الصورة في قاعدة البيانات (/showthread.php?tid=1910)
الصفحات:
1
2
عرض الصورة في قاعدة البيانات - سيل الجليد - 13-04-2010
عندي مشكلة في التعامل مع قاعدة البيانات لدراج صورة في قاعدة البيانات
مع العلم ان اضفت Jpeg في قسم USER
وادرجت قاعدة جديدة فيها الحقل G الي هو خاص بدراج الصور
المشكلة تكمن في الكود زر الادخال :
Table1Image.LoadFromFile(Edit2.Text);
هذي صورة توضح المشكلة باتمام
![[صورة: er1d.jpg]](http://img94.imageshack.us/img94/5626/er1d.jpg)
عرض الصورة في قاعدة البيانات - أبو معاذ - 13-04-2010
أولا مرحبا بك معنا أخي الحبيب تُفيد و تستفيد إن شاء الله .
يمكنك استخدم مكون TSMDBGrid الذي طرحه أخونا الافضل Kachwahed
استخدم مكون TSMDBGrid
وهو مكون مجاني ومفتوح المصدر ويحتوي هذه الخاصية أيضا.
رابط الموضوع هنا :
http://www.delphi4arab.net/forum/showthread.php?tid=2787
ملاحظة لك أخي الحبيب :
لا تنس طرح السلام أولا في كتاباتك اللاحقة.:disgust:
دمت في رعاية الرحمن و حفظه.
بالتوفيق.
:monster1:
عرض الصورة في قاعدة البيانات - kachwahed - 13-04-2010
السلام عليكم
http://www.delphi4arab.net/forum/showpost.php?p=6267&postcount=2
تجدهما هنا:
http://www.delphi4arab.net/forum/showthread.php?tid=22
شخصيا أفضل هذه:
PHP كود :
procedure TForm1.btnLoadClick(Sender: TObject);
var
Photo: TPicture;
begin
if OpenPhoto.Execute then
begin
Photo := TPicture.Create;
try
Photo.LoadFromFile(OpenPhoto.FileName);//OpenPhoto is TOpenPictureDialog
DBPhoto.Picture.Graphic.Assign(Photo.Graphic);
finally
Photo.Free;
end;
end;
end;
procedure TForm1.btnDeleteClick(Sender: TObject);
begin
if MessageDlg('Do you want to delete this photo?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
DBPhoto.Picture.Graphic.Assign(nil);
end;
PHP كود :
{
If you develop a database related software, then a very popular task is to
save some files (documents/images/reports/etc) in some BLOB field of table
and use these saved data later.
In this tip I want to show how this task could be solved.
}
// To save a file to BLOB:
procedure TForm1.Button1Click(Sender: TObject);
var
blob: TBlobStream;
begin
blob := yourDataset.CreateBlobStream(yourDataset.FieldByName('YOUR_BLOB'), bmWrite);
try
blob.Seek(0, soFromBeginning);
fs := TFileStream.Create('c:\your_name.doc', fmOpenRead or
fmShareDenyWrite);
try
blob.CopyFrom(fs, fs.Size)
finally
fs.Free
end;
finally
blob.Free
end;
end;
// To load from BLOB:
procedure TForm1.Button1Click(Sender: TObject);
var
blob: TBlobStream;
begin
blob := yourDataset.CreateBlobStream(yourDataset.FieldByName('YOUR_BLOB'), bmRead);
try
blob.Seek(0, soFromBeginning);
with TFileStream.Create('c:\your_name.doc', fmCreate) do
try
CopyFrom(blob, blob.Size)
finally
Free
end;
finally
blob.Free
end;
end;
{
Using this code you can work with any database engine (BDE/ADO/DAO/ODBC/etc)
and any file format (document of MS Word, spreadsheet of MS Excel, bitmap or
jpeg pictures, wav-files etc)
}
عرض الصورة في قاعدة البيانات - سيل الجليد - 14-04-2010
ولا واحدة نفعت
المشكلة عندي ليست في الكود المشكلة تكمن ماذا اضيف في uses حتى تعمل الصور من قاعدة البيانات
هذا الكود الذي استعملته هل هو صحيح ام فية خلل
كود :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, DBCtrls, DB, Grids, DBGrids, DBTables, Jpeg,
ExtDlgs;
type
TForm1 = class(TForm)
Table1: TTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
DBImage1: TDBImage;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Table1Name: TStringField;
Table1Image: TGraphicField;
Edit1: TEdit;
Edit2: TEdit;
OpenPictureDialog1: TOpenPictureDialog;
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Edit2.Text:= OpenPictureDialog1.FileName;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Table1.Insert;
Table1Name.Value :=Edit1.Text;
Table1Image.LoadFromFile(Edit2.Text);
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Form1.Close;
end;
end.عرض الصورة في قاعدة البيانات - kachwahed - 04-09-2010
أنت تحاول رفع صورة بصيغة Gif وهي غير مدعومة
استخدم مكون أو صيغة أخرى.
عرض الصورة في قاعدة البيانات - سيل الجليد - 10-04-2011
سوف ادرج لكم مثال يوضح اين هي المشكلة
لم يكتمل برمجتة لاكن اول ما انتهي منه اعرضه بالمنتدى
عرض الصورة في قاعدة البيانات - وليد - 10-04-2011
السلام عليكم
انظر في هذا الرابط لعلك تجد مايفيدك
http://www.delphi4arab.net/forum/showthread.php?tid=3375
عرض الصورة في قاعدة البيانات - kachwahed - 10-04-2011
طبعا يحدث خطأ لأنك تحاول كتابة TPicture في Boolean!
استبدل سطر الخطأ بـ
كود :
Table1Image.Assign(Image1.Picture);عرض الصورة في قاعدة البيانات - سيل الجليد - 11-04-2011
PHP كود :
كود:
Table1Image.Assign(Image1.Picture);
مشي الحال مع هذا الكود
لاكن هل يسقوم بحفظ الصورة في قاعدة البيانات كيف استطيع معرفه ذلك
هل استطيع ادرج DBImage1 عند الوضع على الحقل يظهر صورته ,,
عرض الصورة في قاعدة البيانات - kachwahed - 12-04-2011
إقتباس :هل يسقوم بحفظ الصورة في قاعدة البيانات كيف استطيع معرفه ذلكأجل، يمكنك التأكد من ذلك عند استرجاع الصورة، وعدم ظهور أي رسالة خطأ
إقتباس :هل استطيع ادرج dbimage1 عند الوضع على الحقل يظهر صورته ,,أجل، لِم لا تُجرب ؟