زبان Delphi : تمامی مباحث و مسائل

با سلام خدمت دوستان عزيز

متشكر ميشوم اگر كسي من را راهنمايي كند.

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

من وقتی از این دستور استفاده میکنم خطایی رخ میدهد که نمیدانم علتش چیست.

ااگه پيام خطايي كه ميده رو بذاري خيلي راحتتر ميشه بهت كمك كرد
ولي به طور كلي دو صورت داره
INSERT INTO target [(field1[, field2[, ...]])] [IN externaldatabase]
SELECT [source.]field1[, field2[, ...]
FROM tableexpression
در اين حالت بايد اسم فيلدهايي كه مقدار دهي ميشن تعيين كني و مقاذير از طريق يه دستور select به داخل جدول درج ميشن

Single-record append query:

INSERT INTO target [(field1[, field2[, ...]])]
VALUES (value1[, value2[, ...])

اما توي اين حالت پس از تعيين فيلدها مقادير رو به نرتيب درج ميكني
البته مي توني توي دلفي از طريق پارامتر مقادير رو ارسال كني

سعید ممنون از لطفت
فقط بگو وقتی فایل اجرایی رو هم ساختیم بعدش کدوم فابل ها رو بریزیم کنارش؟

سلام آقای دکو ورود شما رو تبریک میگم .
و این که بانک اطلاعاتی‌ شما چی‌ هست و این که آیا با query or ado کار می‌کنید یا این که با چیز دیگه و dbexpress اگه در این مورد توضیح بدین و این که می‌خواهید رکورد جدید درج کنید یا فیلد جدید درج کنید بیشتر توضیح بدید .ممنون میشم .
آقای بهروز عزیز .شما اگه برنامتون با بانک اطلاعاتی‌ کار می‌کنه بهتر هست که یک پوشه به نام database اگه وجود نداشت موقع پک کردن بسازی و اون فایل ها رو در آنجا کپی‌ کنی‌ که موقع نصب روی سیستم در پوشه مقصد نصب بشه .و یک فایل exe که کامپایل میکنی‌ کافی‌ هست .
اگه البته با گزارشگیری هم کار میکنی‌ برای اون هم یک پوشه به نام report بساز .

با سلام خدمت دوستان عزيز
بنده مشكلي در زمينه دلفي دارم كه اگر كسي لطف كنه جواب بده كمال تشكر را دارم
در يك فرم mdi چگونه مي توان فرم child را احضار كرد با توجه به اين كه بنده كد
frmcustomer.show را هم استفاده كردم ولي پيغام خطا مي دهد

سوال دوم اينكه در همين برنامه كه mdi مي باشد مي خواهم ابتدا فرم login كه خاصيت child ندارد ظاهر شود سپس بعد از گرفتن نام كاربري و كلمه رمز فرم login بسته و فرم mdi ظاهر شود.

[SIZE=9]دوستان اگر لطف كنند سريع جواب دهند ممنون مي شوم چون خيلي احتياج دارم[/SIZE]

سلام دوست عزیز شما از چه نسخه ای استفاده می‌کنید از نسخه 7 یا 2005؟
شما فعلا اینجا رو نگاه کنید .در قسمت object inspector یک قسمت داره واسه parent و این که کدام اول نشان داده بشه اگه می‌خواهید ابتدا username and password ظاهر بشه من به شما component بسیار کامل و خوب suipack رو پیشنهاد می‌کنم که فقط کافی‌ هست که روی فرم بگذارید و موقع اجرا در event formactivate or form create آن این کامپننت رو صدا کنید بد که بسته بشه میره در صفحه اصلی‌ شما .
حالا شما نسخه دلفی‌ که باهاش کار می‌کنید رو بگید بهتر می‌شه کمک کرد .

سلام آقا سعید nesta
ممنون از کمکت عرض کنم که از دلفی 7 استفاده می کنم
باید بگم که فرم لوگین را دستی طراحی کردم و formstyleآن را از حالت child درآوردم و از کادر محاوره ای project option هم در کادر main form فرم لوگین را انتخاب کردم مشکل اینجاست که وقتی فرم لوگین ظاهر می شود و یوزر پسورد را وارد می کنم نمی دونم با چه دستوری یا متدی فرم mdi را show یا creat کنم یا وقتی از متد show استفاده می کنم پیغام خطا می دهد

در مورد اون کامپوننتی که فرمودید هیچ اطلاعی ندارم از کامپونتهای دلفی است یا باید آن را تهیه کنم اگه لطف کنی بگی چیکار باید بکنم بازم ممنون می شم

سلام دوست عزیز .
کلا برای نمایش دادن فرم که فرمان ها با هم فرق نمی‌کنه چرا که فقط میخواهیم نمایش بدیم همین .
برای این کار شما باید بگید که در صورت درست بودن username and password فرم فلان مثلا show or showmodal
اینطوری همین بد هم زیر به نظر من به این صورت بزنی‌ .
close form1;
showmodal form2;
با این کار فرم اولی‌ بسته شده یا حالا اگه حرفه ای تر بخوای که میگم بهت ولی‌ بطور کل دوست من این کار روش صحیحی‌ نیست و کمتر برنامه نویس خوبی‌ همچین کاری انجام میده ‌.
برای آن کامپوننت هم باید بگم که شما هر کجا بزنی‌ coponent suipack 5 for delphi 7 البته کرکک شده ها .گیر میاری ،و نظر بعدی من این هست که چرا فرم midi ? چرا به صورت فرم معمولی‌ استفاده نمیکنید .و کار child or parent هم برای استفاده های خاصی‌ انجام می‌شه مثلا که یک فرم یا فرم های تو در تو ایجاد کنی‌ .بد مثلا بگی‌ آقا فونت فرم پدر فرق کنه یا این که حاشیه یا رنگ فرم پدر با فرم فرزند متمایز باشه .
برای همچین کار هائی‌ استفاده نمی‌شه حالا اگه شما اون کامپوننت رو بگیری کارت خیلی‌ راحت حل می‌شه ولی‌ من سوالام این هست که شما آیا username password رو در بانک اطلاعاتی‌ ذخیره و در صورت چک کردن آن فرم اصلی‌ ظاهر می‌شه یا نه الکی‌ هست .چون اینطوری فقط کار زیاد کردن هست .البته شرمنده ها من رک میگم.در کل برای نمایش فرم ما 3-4 تا دستور نداریم تازه شما باید کاری کنید که علامت ضربدر فرم لاگین غیر فعال بشه یعنی‌ چی‌ اگه شما دقت کنید هنگامی‌ که کسی‌ نخواهد user passs رو وارد کنه و close رو بزنه اتماتیک میره به فرم اصلی‌ و این خوب نیست شما باید کودی بدید که اون کلا عمل نکنه که کاربر مجبور بشه که یا user pass بده در غیر این صورت خارج بشه از برنامه .

سلام دوست من
باید بگویم که این فرم لوگین ما به بانک اطلاعاتی متصل است و از نظر کارکرد هیچ مشکلی ندارد حتی در مراحل بعدی قابلیت تعریف کاربران جدید را نیز دارا می باشد
مشکل من اصلا ارتباطی به فرم لوگین ندارد بنده آن کدهایی را هم که فرمودید قبلا در شرط فرم لوگین بعد از صحت یوزر و پسورد قرار داردم ولی متآسفانه عمل نمی کند برای روشن شدن مسئله جسارتا می خواهم شمار ا به زحمت بیندازم البته پیشاپیش تشکر می کنم و شما با حل مشکلات من کمک بزرگی به بنده می نمایید چو ن واقعا مرجعی برای رفع اشکال ندارم باز هم ممنونم
بنده پروژه ای در دست گرفتم که مربوط به یه آژانس می باشدتقریبا اکثر فرمهای آن طراحی شده فقط اشکالات ریزی مرا به دردسر انداخته
این پروژه شامل یک پنجره mdi و چند پنجره parentمی باشد
جسارتا شما دو فرم ایجاد کنید به نامهای form1 و form2
سپس خاصیت formstyle را برای form2 به fsMDIForm تنظیم نمایید
دکمه ای روی form1 قرار دهید
حالا شما کدی را در رویداد onclick دکمه بنویسید که بتواند form 2 را ظاهر کند
اگر عمل کرد آن کد را برای من ارسال کنید

برای مشکل دوم هم یک منو باری برای form 2 یعنی فرمی که mdi است طراحی کنید و برای آن یک گزینه مثلا open انتخاب کنید
حال form3 را هم درست کنید و formstyle آن را fsMDIChild تغییر دهید به طوری که form3 فرزندی برای form2 باشد
حال قطعه کدی برای گزینه open بنویسیدکه form3 را بعد از بسته شدن ظاهر نماید
البته قبل از این کار در رویداد onclose واقع در Event بر روی form3 این قطعه کد را بنویسید.
Action := caFree;
لطفا در صورت به نتیجه رسیدن ما را بی خبر نگذارید و مچکرم

سلام دوست عزیز والا من که اینطوری میزنم کار می‌کنه .

form2.showmodal;
در مورد سوال منو هم که یک mainmenu روی فرم می‌ گذارید .و داخل اون اگه می‌خواهید باز همین رو میزانید .آخه چیز پیچیده ای نیست من عرض کردم که کلا کار با midi در اینجا رو من اشتباه می‌دونم .چرا باید فرم midi باشه خوب اگه معمولی‌ شما امتحان کنید اصلا مشگلی‌ نیست .اصلا کد پیچیده ای نمیخواد احتمالا دلفی‌ شما قاطی‌ کرده .بعضی‌ اوقات برای من هم می‌شه مثلا کد 100% درسته ولی‌ ارر های عجیب میده .

سلام آقا سعید
شما درست می فرمائید در صورتی که فرمهایی که استفاده می کنیم MDI نباشد در ست کار می کند
مشکل اینجاست که من می خواهم با زدن دکمه ok روی یک فرم SDI که البته parent هم نمی باشد این فرم بسته و فرم MDIظاهر شود
در مورد اینکه شاید دلفی قاطی کرده بعید می دونم چون روی چندتا سیستم دیگه هم امتحان کردم جواب نداد
در ضمن من خودم هم با MDI زیاد موافق نیستم ولی چه کنم که انجوری ازم خواستن
امیدوارم اذیتت نکرده باشم

به دست آوردن ليست سيدي درايوهاي متصل به كامپيوتر
يك فانشكن مينويسيم كه يك استرينگ بر ميگرداند

کد:

---

Function GetCDList : String;
Var
  I    : Integer;
  Drives: Integer;
  Tmp  : String;
begin
Drives := GetLogicalDrives;
  Result := '';
// units A=0 to el Z=25
  For I := 0 To 25 Do
    If (((1 Shl I) And Drives)<>0) Then
    Begin
      Tmp := Char(65+I)+':\';
      If (GetDriveType(PChar(Tmp))=DRIVE_CDROM) Then
                                  Result := Result+Char(65+I);
    End;
End;

---

:biggrin:

با استفاده از اين فانكشن ميتونيد در هر نوع سيدي درايوي رو باز و بسته كنيد
در اثر فشارهاي مكرر دوستان من ترجمه فارسي توضيحات رو هم به كدها اضافه كردم

کد:

کد:

---

uses
  MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
{باز كردن سيدي رام: در صورت موفقيت 0 برميگرداند}
 { open CD-ROM drive; returns 0 if successfull }
  mciSendString('set cdaudio door open wait', nil, 0, handle);

  { close the CD-ROM drive; returns 0 if successfull }
{بستن سيدي رام: در صورت موفقيت 0 برميگرداند}
  mciSendString('set cdaudio door closed wait', nil, 0, handle);
end;

---

سلام دوست عزیز متشکر ،و خوشحالم که به جمع دلفی‌ کار ها امدی .مرسی‌.

ممنون ومتشکر جناب نستا جان.
من سعی می کنم که مطالب مفیدی ارائه کنم

تغيير Volume ويندوز

يك TrackBar در فرم خود قرار دهيد و Max value را به 15 تغيير دهيد و در رويداد OnChange آن كد زير را قرار دهيد:

کد:

---

procedure TForm1.TrackBar1Change(Sender: TObject);
var
Count, i: integer;
begin
  Count := waveOutGetNumDevs;
  for i := 0 to Count do
  begin
  waveOutSetVolume(i,longint(TrackBar1.Position*4369  )*65536+longint(TrackBar1.Position*4369));
end;
end;

---

تغيير Resolution مونيتور

بايد يك پروسيجر به شكل زير بنويسيم:

کد:

---

procedure SetResolution(ResX, ResY: DWord);
var
lDeviceMode : TDeviceMode;
begin
EnumDisplaySettings(nil, 0, lDeviceMode);
lDeviceMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
lDeviceMode.dmPelsWidth :=ResX;
lDeviceMode.dmPelsHeight:=ResY;
ChangeDisplaySettings(lDeviceMode, 0);
end;

---

قرار دادن يك Bitmap در يك متافايل

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var
  m : TmetaFile;
  mc : TmetaFileCanvas;
  b : tbitmap;
begin
  m := TMetaFile.Create;
  b := TBitmap.create;
  b.LoadFromFile('C:\SomePath\SomeBitmap.BMP');
  m.Height := b.Height;
  m.Width := b.Width;
  mc := TMetafileCanvas.Create(m, 0);
  mc.Draw(0, 0, b);
  mc.Free;
  b.Free;
  m.SaveToFile('C:\SomePath\Test.emf');
  m.Free;
  Image1.Picture.LoadFromFile('C:\SomePath\Test.emf'  );
end;

---

بدست آوردن Serial Number درايو

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var
  VolumeName,
  FileSystemName    : array [0..MAX_PATH-1] of Char;
  VolumeSerialNo    : DWord;
  MaxComponentLength,
  FileSystemFlags    : Integer;
begin
  GetVolumeInformation('C:\',VolumeName,MAX_PATH,@Vo  lumeSerialNo,
                      MaxComponentLength,FileSystemFlags,
                      FileSystemName,MAX_PATH);
  Memo1.Lines.Add('VName = '+VolumeName);
  Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8));
  Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength));
  Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4));
  Memo1.Lines.Add('FSName = '+FileSystemName);
end;

---

اميدوارم مورد قبولتان واقع شود

سلام این پست آخری دیگه یه کمی‌ زیاد بود .ولی‌ من تشکر کردم از طرف دوستان.در ضمن اینجا فعلا به دلیلی‌ راکد مونده .بدا اینجا فعال تر می‌شه.

هر چی مربوط به فارسی کردن دلفی اعم از کامپوننت ها سورس کد و تاریخ شمسی و... هست رو لطفا یکی توضیح بده......

سیمین ی.

سلام خانم عزیز .
یک سیدی در بازار هست که کامپوننت مخصوص دلفی‌ و همش هم فارسی‌ هست در بازار وجود داره .مثل تاریخ شمسی‌ تا datepicker و کلا مجموعه کملی‌ کاملی‌ هست.برای فارسی‌ نویسی‌ هم که IPT خوب جواب میده تو دلفی‌ .منتها برای نسخه 2005 کامپوننت های زیادی نیست .

با سلام
من یک سی دی دلفی 6 دارم که موقع نصب برای فایلهای java خطا میگیره و در فولدر برنامه کپی نمیشن.
اشکالش از سیدی برنامه هست چون خودم خواستم به صورت دستی کپیش کنم که اصلا موجود نبود.
اگر ممکنه یک نفر این فایلها رو که 32 تا هستند لینک دانلودشو برام لطف کنه یا اینکه اونا رو برام آپلود کنه.

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

یه چند روز صبر کنید تا یکی پیدا بشه

نقل قول:

---

نوشته شده توسط mehdi_mj

با سلام
من یک سی دی دلفی 6 دارم که موقع نصب برای فایلهای java خطا میگیره و در فولدر برنامه کپی نمیشن.
اشکالش از سیدی برنامه هست چون خودم خواستم به صورت دستی کپیش کنم که اصلا موجود نبود.
اگر ممکنه یک نفر این فایلها رو که 32 تا هستند لینک دانلودشو برام لطف کنه یا اینکه اونا رو برام آپلود کنه.

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

---

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

با عرض سلام

چندتا سوال داشتم كه ممنون ميشم جواب بدين

من توي برنامه اي كه نوشتم از چند تا فرم استفاده مي كنم

وقتي كه به يكي از فرم ها غير از فرم اصلي مراجعه ميكنم ويزيبلش فعال ميشه . بعد از اتمام استفاده اونرو بايد ببنديم اما اگه كاربر محل اون تغيير بده در مراجعه بعدي باز هم در همون جا ظاهر ميشه اين مشكل رو چطور ميشه حل كرد ؟


سوال دوم : من اطلاعاتي بصورت ركورد سه فيلدي در اكسس دارم كه مي خوام در دلفي استفاده كنم براي تبديل اين اطلاعات چكار بايد كنم. يعني چه كدي بنويسم و از چه عناصري استفاده كنم كه اين اطلاعات بصورت فايل ركوردي دات دت من ذخيره بشه .

ممنون

مشكل من توي برنامه نويسي دلفي اين است كه وقتي دلفي 7 را نصب مي كنم نمي توانم در كامپوننت ها فارسي بنويسم در صورتي كه فارسي ويندوزم فعال است. مثلا تايتل فرم را به فارسي بنويسم. لطفا اگر كسي اطلاعي در اين مورد دارد حتما بگويد. مرسي

باسلام
من فايلهايي روکه درنصب دلفی6 ارورميگرفت براتون نوشتم
متشکرم
error 1309.error reading from file :

j:\INSTALL\program files\Borland\Delphi6\Demos\Cobra\Idl2pas\EJB\euro co nverter\java\classes
\Generated
Sourse\Sequence_of_anyHelper.java.
Sourse\Sequence_of_anyHolder.java.
j:\INSTALL\program files\Borland\Delphi6\Demos\Cobra\Idl2pas\EJB\euro co nverter\java\classes
\Generated Source\...\EuroConverter.java.
EuroConverterHelper.java.
EuroConverterHolder.java.
EuroConverterHome.java.
EuroConverterHomeHelper.java.
EuroConverterHomeHolder.java.
EuroConverterHomeOperations.java.
EuroConverterHomePOA.java.
EuroConverterHomePOAInvokeHandler.java.
EuroConverterHomePOATie.java.
EuroConverterOperations.java.
EuroConverterPOA.java.
EuroConverterPOAInvokeHandler.java.
EuroConverterPOATie.java.
_EuroConverterHomeStub.java.
_EuroConverterHome_Stub.java.
_EuroConverterStub.java.
_EuroConverter_Stub.java.
j:\INSTALL\program files\Borland\Delphi6\Demos\Cobra\Idl2pas\EJB\euro co nverter\java\classes
\currencyconverter\EuroConverter.class.
EuroConverterBean.class.
EuroConverterBeanTestClient1.class.
EuroConverterHelper.class.
EuroConverterHolder.class.
EuroConverterHome.class.
EuroConverterHomeHelper.class.
EuroConverterHomeHolder.class.
EuroConverterHomeOperations.class.
EuroConverterPOA.class.
EuroConverterHomePOAInvokeHandler.class.
EuroConverterOperations.class.
EuroConverterPOA.class.
EuroConverterPOAInvokeHandler.class.
_EuroConverterHomeStub.class.
_EuroConverterHome_Stub.class.
_EuroConverter_Stub.class.
package.uml.
j:\INSTALL\program files\Borland\Delphi6\Demos\Cobra\Idl2pas\EJB\euro co nverter\java\classes
\dependency
cache\currencyconverter.dependency.
j:\INSTALL\program files\Borland\Delphi6\Demos\Cobra\Idl2pas\EJB\euro co nverter\java\src\
currencyconverter\EuroConverter.java.
EuroConverterBean.java.
EuroConverterBean.jbx.
EuroConverterBeanTestClient1.java.
EuroConverterHome.java.
EuroConverterHome.jbx.

سلام
از اطلاعات خوبت مچكرم
باز هم از اين كارها بكن
فقط در مورد Agent راستش من نفهميدم اين يونيت هاي بخش Uses به چه كار مي ياد
چون برنامه من از يونيت ها خطا ميگيره

يكي نيست طريقه نمايش فرم دريافت پاسوورد رو به من آموزش بده؟

سلام دوست عزیز .
با دلفی‌ چند شما کار میکنی‌ و یه کمی‌ اگه می‌شه دقیق تر توضیح بدی بهتر متوجه میشم.

با دلفي 7 كار ميكنم
مي خواستم در مورد فرم parent و mdi و چگونگي نمايش فرم ها توضيح بدين ممنون

من میخوام یه سری دیتا رو بفرستم رو پورت Usb یا Lpt (مثل یک عدد) لطفا راهنمایی کنید

مثل اينكه هيچ كي بلد نيست ما رو راهنمايي كنه نه؟!
بابا جواب بدين ديگه

سلام
يه سوال؟؟؟؟؟؟
توي دلفي چه جوري مي شه با مودم كار كرد؟؟؟؟؟كامل لطفا!!!!!!1 :biggrin:

مثل اينكه هيچ كي نمي خواهد ما رو راهنمايي كنه

بابا بيل گيتس ها ما رو هم دريابين

اگه كسي مي خواهد ما رو دريابه در باره استفاده از اطلاعات بر روي اكسل در دلفي راهنمايي كنه(جستجو،ويرايشو...)

ممنون ميشم

بابا ریچی ها کجایین ما رو هم دریابین

سلام
مي خوام يه برنامه بنويسم كه تعداد كاراكتر هاي يك متن رو حساب كنه
لطفا اگه كسي مي دونه راهنمايي كنه
مرسي

سلام.
کسی که نمی دونه .
شما از توابع strtoint یا
intTostr
باید استفاده کنید.