مشکل در ایجاد ارتباط با بانک - ذخیره تصاویر در پوشه

[hentjanson]

سلام دوستان من پروژه اخر ترمم یک برنامه هستش که چند تا فیلد یک قسمت درج تصویر داره .
ولی تو قسمت ورود تصاویر ذخیره اون مشکل دارم هر کار کردم نتونستم میشه برنامه منو ببینید در صورت امکان کمکم کنید .
با تشکر از همه اساتید


حامد از مشهد

[behzadboloori]

میتونی توی همین سایت مطلب مورد نظرتو پیدا کنی. یه جستجوی کوچیک انجام بده.

[hentjanson]

اره من جستجو کردم تا صبح وقت دارم این تیکه درست کردم فردا ارائه پروزمه میشه کمکم کنی تو ثبت کاراکتر مشکل ندارن تو ثبت اطلاعات تو بانک مشکل دارم میشه راهنماییم کنید این که چکار باید انجام داد

[hentjanson]

سلام دوستان من از این کد استفاده میکنم جواب نمیده چرا ؟


if DataModule2.OpenPictureDialog1.Execute Then
CopyFile(PChar(DataModule2.OpenPictureDialog1.File Name),
PChar(path+'\Pictures\'+ExtractFileName(DataModule 2.OpenPictureDialog1.FileName)),True);
DataModule2.ADOTable1.Append;
DataModule2.ADOTable1pic.Text:= 'Pictures\'+ExtractFileName(OpenPictureDialog1.Fil eName);
DataModule2.ADOTable1.Post;


این خطا رو میگیره :
PChar(path+'\Pictures\'+ExtractFileName(DataModule 2.OpenPictureDialog1.FileName)),True);

undeclared identifier : 'path'

[سعید صابری]

سلام دوستان من پروژه اخر ترمم یک برنامه هستش که چند تا فیلد یک قسمت درج تصویر داره .
ولی تو قسمت ورود تصاویر ذخیره اون مشکل دارم هر کار کردم نتونستم میشه برنامه منو ببینید در صورت امکان کمکم کنید .
با تشکر از همه اساتید


حامد از مشهد

پروژه ای گذاشتی نه مشکلی کامپایلری داشت نه جایی برای ورود تصویر ؟

[hentjanson]

سلام دوستان من مشکلم تا حدی به این صورت رفع کردم


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if DataModule2.OpenPictureDialog1.Execute Then
CopyFile(PChar(DataModule2.OpenPictureDialog1.File Name),
PChar(path+'\Pictures\'+ExtractFileName(DataModule 2.OpenPictureDialog1.FileName)),True);
DataModule2.ADOTable1.Append;
DataModule2.ADOTable1pic.Text:= 'Pictures\'+ExtractFileName(DataModule2.OpenPictur eDialog1.FileName);
DataModule2.ADOTable1.Post;
end;


فقط یک سوال با این کدی که من نوشتم عکس در بانک نمایش داده میشه میشه بگید چکار باید بکنم که موقعی که عکس رو انتخاب کردم در Image نشون داده بشه یعنی یک image روی فرم بزارم عکسی که میخواد ذخیره شه رو ببینم

[hentjanson]

این برنامه منه میشه دوستان ببینند کجای کار اشتباه کردم

[سعید صابری]

با استفاده از همون آدرسی که برای کپی کردن استفاده کردی


Image2.Picture.LoadFromFile(path + ...)

[hentjanson]

.wysiwyg { BACKGROUND-COLOR: #f3f7f9 } BODY.wysiwyg { PADDING-RIGHT: 2px; PADDING-LEFT: 2px; PADDING-BOTTOM: 2px; MARGIN: 0px; PADDING-TOP: 2px } .wysiwyg HR.previewbreak { COLOR: red; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; HEIGHT: 6px; BACKGROUND-COLOR: red; BORDER-BOTTOM-STYLE: none } .wysiwyg { FONT: 13px Tahoma,Calibri,Verdana,Geneva,sans-serif } .wysiwyg.content { FONT: 13px Tahoma,Calibri,Verdana,Geneva,sans-serif } .wysiwyg.forum { FONT: 13px Tahoma,Verdana,Arial,Calibri,Geneva,sans-serif } .wysiwyg P { MARGIN: 0px } .wysiwyg .inlineimg { VERTICAL-ALIGN: middle } .wysiwyg IMG.previewthumb { MAX-WIDTH: 150px; MARGIN: 1px; WIDTH: auto! important; MAX-HEIGHT: 150px; HEIGHT: auto! important } .wysiwyg OL.decimal LI { LIST-STYLE-POSITION: outside; LIST-STYLE-TYPE: decimal } .wysiwyg OL.upper-roman LI { LIST-STYLE-POSITION: outside; LIST-STYLE-TYPE: upper-roman } .wysiwyg OL.lower-roman LI { LIST-STYLE-POSITION: outside; LIST-STYLE-TYPE: lower-roman } .wysiwyg OL.upper-alpha LI { LIST-STYLE-POSITION: outside; LIST-STYLE-TYPE: upper-alpha } .wysiwyg OL.lower-alpha LI { LIST-STYLE-POSITION: outside; LIST-STYLE-TYPE: lower-alpha } .wysiwyg IMG.previewthumbactive { BORDER-RIGHT: red 1px solid; BORDER-TOP: red 1px solid; MARGIN: 0px; BORDER-LEFT: red 1px solid; BORDER-BOTTOM: red 1px solid } .wysiwyg_block { MARGIN-BOTTOM: 10px } .wysiwyg_block .blockrow:first-child { BACKGROUND: url(http://barnamenevis.org/images/gradients/gradient-greytowhite.png) repeat-x right top } .wysiwyg_block IFRAME.textbox { BORDER-RIGHT: #6b91ab 1px solid; BORDER-TOP: #6b91ab 1px solid; BACKGROUND: #f3f7f9; PADDING-BOTTOM: 0px; BORDER-LEFT: #6b91ab 1px solid; BORDER-BOTTOM: #6b91ab 1px solid } .wysiwyg_block .formcontrols .blockrow { BORDER-TOP-WIDTH: 0px } .wysiwyg_block { _width: 99.8% } .qrcontainer .wysiwyg_block .blockfoot { _padding-top: 5px } .qrcontainer .wysiwyg_block { _width: auto } .qrcontainer .wysiwyg_block .editor_controls { _padding-left: 1%; _width: 98%; _padding-right: 1% } سلام دوستان من کد رو تازه کارم مینویسم ولی برنامم نمیتونم کامل کنم .

ببینید من واسه مقادیرم از این کد استفاده میکنم اطلاعات کاربر

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
DataModule2.ADOTable1.Insert;
DataModule2.ADOTable1namketab.AsString := maskEdit1.Text;
dataModule2.ADOTable1.Post;

حالا واسه عکس مورد نظر از این کد
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if DataModule2.OpenPictureDialog1.Execute Then
CopyFile(PChar(DataModule2.OpenPictureDialog1.File Name),
PChar(path+'\Pictures\'+ExtractFileName(DataModule 2.OpenPictureDialog1.FileName)),True);
DataModule2.ADOTable1.Append;
DataModule2.ADOTable1pic.Text:= 'Pictures\'+ExtractFileName(DataModule2.OpenPictur eDialog1.FileName);
DataModule2.ADOTable1.Post;
end;


فکر کنم متوجه شدید من عکسم جدا تو جدول ذخیره میشه میخوام وقتی مشخصات کاربر رو مینویسم و عکس رو انتخاب کردم یک جا ذخیره شه تو ادقام این دوتا کد مشکل دارم میشه کمکم کنید یعنی وقتی دکمه ذخیره رو میزنم همه مشخصات باهم ذخیره شه .
برنامه خودم رو هم میزارم

میشه یک نگاهی به این برنامه بندازید

[Felony]

اگر قصد ادامه برنامه نویسی رو داری یه فکری به حال کدنویسیت بکن , کوچکترین اصول کدنویسی هم توش رعایت نشده بود ...‌ !

برنامتون رو تا جایی که وقت داشتم اصلاح کردم , از ضمیمه دریافت کنید .