استفاده از Shamsi.dll در دلفی ( بشتابید که مشکل حل سد )

Printable View

19-06-2006, 19:08
hp1361

استفاده از Shamsi.dll در دلفی ( بشتابید که مشکل حل شد )

سلام

دوستان عزیزی که احتیاج دارن تو برنامه هاشون از تاریخ شسی استفاده کنن و تا بحال یه مرجع خوب و مطمئنی ÷یدا نکردن دیگه نگران نباشن مشکل حل شد ( البته استفاده از شمسی خانوم رو می گم ها )

نحوه ی نصب و رجیستر کردن اونو بصورت پی دی اف براتون اماده کردم امیدوارم بکارتون بیاد

خوش باشید

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اينم لينك دانلود شمسي دي ال ال

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
02-07-2006, 16:32
Mahmood_N

دستتون درد نکنه ...
16-07-2006, 00:08
Mahmood_N

من فايل رو دانلود كردم ولي باز نمي شه و Error می ده !!!
می شه بررسی کنید ... ؟
با تشکر ...
16-07-2006, 01:05
AK1

من راحت دانلود كردم مشكلي نداشت مر30
ممنون
16-07-2006, 06:54
Mahmood_N

سلام ...
درسته من الان كه دانلود كردم راحت باز شد ولي اوني كه قبلا دانلود كرده بود باز نمي شد !!!
24-07-2006, 20:20
مرد مباح

اچ پي جان.
فعلا دو تا از توابع رو نميتونم استفاده كنم.
مثل ShamsiIncrease و ShamsiDecrease.
موقع استفاده ارر زير رو ميده.
راه حلي داره؟
چك كن و خبرشو بهم بده.
ممنونم.

Types of actual and formal var parameters must be identical
27-07-2006, 12:05
مرد مباح

يكي نيست كه كمكم كنه؟
رفقا يه نگاه بندازين
27-07-2006, 12:13
soldier

سلام
من كه تا حالا با اين برنامه كار نكردم.
اصلآ به چه دردي مي خوره؟
به نظر من ممكنه قاتي هم بشه
27-07-2006, 21:53
hp1361

سلام مرد مباح عزيز

ببخشيد دير جوابت رو ميدم به اينترنت دسترسي نداشتم

در مورد سوالي كه پرسيدي بايد بگم كه خودت بهتر ميدوني كه اين ارور ميگه كه ورودي هاي تو با اونچه كه براي زيربرنامه تعريف شه از نظر نوع با هم مغايرت دارن.

براي اينكه شما از دستور كاهش و يا افزايش روز از يك تاريخ استفاده كنيد مي بايست ابتدا تاريخ شمسي مورد نظر و سپس مقدار مورد نظر رو به زير برنامه بديد

نوع اولي از نوع (وايد استرينگ) ( widestring ) و دومي از نوع اينتجر (integer) بايد باشه

احتمالا شما تاريخ ميلادي رو بهش دادي (شايدا)

يه متغير از نوع اولي و يكي هم از نوع دومي در وريبل برنامه تعريف كن و بعد بهشون مقدار بده (براي مقدار دادن به اولي از همون شمسي دي ال ال استفاده كن و براي دومي هم كه خودت مي دوني )

حالا از اين متغير ها در زير برنامه استفاده كن

موفق باشي

سولجر عزيز هم گفتن كه اين دي ال ال به چه درد مي خوره

توضيحا مي گم كه براي برنامه هايي كه به تاريخ شمسي احتياج داري مي توني از اين استفاده كني كه علاوه بر اون كلي زير برنامه ديگه داره كه يقينا راهبر مي تونه باشه

يا حق
28-07-2006, 10:15
مرد مباح

من اول از ()Shamsi استفاده ميكنم و توي يك Edit مقدارشو قرار ميدم و بعد به كمك يك كليد Up/Down مقدارشو ميخوام كم و زياد كنم.
وقتي مساوي ShamsiIncrease(Edit.text,1) I مینویسم این ارر رو میده.
مشکل کار از کجاست؟
حتما خودتون یکبار چک کنید و خبرشو بدین
28-07-2006, 12:48
hp1361

سلام

عزيز گفتم كه نوع ورودي دستور increase بايد widestring باشه و دومي هم اينتجر مستقيماً عدد نميگيره

يه نمونه برات مي زارم كه با زدن دكمه تاريخ افزايش (كاهش ) پيدا مي كنه
[HTML]
procedure TForm1.Button1Click(Sender: TObject);
var
shdate:widestring;
increase:integer;
begin
shdate:=edit1.Text;
increase:=1;
edit1.Text:=form1.MyShamsi1.ShamsiIncrease(shdate, increase);
end;
[/HTML]

موفق باشي
28-07-2006, 13:31
مرد مباح

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

خيلي ممنون كه پيگير بودن.
28-07-2006, 14:56
hp1361

سلام

خواهش مي كنم در مقابل راهنمايي هاي شما و ديگر دوستان چيز قابل ديدني نيست

يا حق
29-07-2006, 02:46
Mahmood_N

سلام ...
یه سئوال :
برای استفاده از این DLL ایا باید اون رو توی کامپیوتر کاربر هم رجیستر کنیم ؟
یکی از دوستان من بعد از استفاده توی یه کامپیوتر دیگه می گه که Error می ده !!!
می شه جواب سئوالم بدید ... ( خیلی واسم محمه )
با تشکر ...
موفق باشید ...
29-07-2006, 11:04
مرد مباح

حتمالا يك نمونه از اين فايل بايد در شاخه اصلي ويندوز و در سيستم 32 كپي بشه و بعد هم رجيستر كن.
البته امتحانش نكردم . و فكر كنم اينجوري باشه.
29-07-2006, 17:53
hp1361

سلام

نحوه رجيستر كردن shamsi.dll در سيستم مقصد ( كاربر ) بصورت پي دي اف اماده كردم . اونو مي تونيد از لينك زير دان كنيد

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

موفق و مويد باشيد

يا حق
12-07-2009, 14:10
mostafa_ar

من اونو تو برنامم استفاده کردم یه تو یکی دو تا تاریخ Error می ده
تو تاریخ 31 اردیبهشت. اون یکی تاریخ را هم یادم نیست فکر کنم 30 اردیبهشت باشه
14-07-2009, 12:56
hp1361

سلام

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

پیشنهاد میکنم از کامپوننت ShDate Solutions استفاده کنید که توابعش واقعا فوق العاده و بسیارند . در مورد تاریخ های خاص مثل سال کبیسه و اسفند و اردیبهشت هم مشکلی نداره .

ورژن 1.1 بصورت رایگان در همین فروم نان فرس عزیز گذاشته که می تونید در دلفی 7 ازش استفاده کنید . اما اگه برای دلفی 2009 بخواهید باید ورژن 2.1 رو از سایتش خریداری کنید .

پیشنهاد میکنم بخرید چون واقعا نیازتون رو برای تایخ شمسی برای همیشه رفع میکنه . مخصوصاً که پشتیبانیش هم خوبه . (البته بگم این کامپوننت مال من نیست که بگین داره تبلیغ میکنه ها! من خودم هم خریدمش )

از همه اینها گذشته از دردسر کپی کردن دی ال ال و رجیستر کردنش خلاص میشین .

موفق باشید
14-07-2009, 12:57
hp1361

سلام

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

پیشنهاد میکنم از کامپوننت ShDate Solutions استفاده کنید که توابعش واقعا فوق العاده و بسیارند . در مورد تاریخ های خاص مثل سال کبیسه و اسفند و اردیبهشت هم مشکلی نداره .

ورژن 1.1 بصورت رایگان در همین فروم نان فرس عزیز گذاشته که می تونید در دلفی 7 ازش استفاده کنید . اما اگه برای دلفی 2009 بخواهید باید ورژن 2.1 رو از سایتش خریداری کنید .

نقل قول:

کد:

http://www.farsicomponents.com/

پیشنهاد میکنم بخرید چون واقعا نیازتون رو برای تایخ شمسی برای همیشه رفع میکنه . مخصوصاً که پشتیبانیش هم خوبه . (البته بگم این کامپوننت مال من نیست که بگین داره تبلیغ میکنه ها! من خودم هم خریدمش )

از همه اینها گذشته از دردسر کپی کردن دی ال ال و رجیستر کردنش خلاص میشین .

اگر هم یه پکیج ایگان می خواهید می تونید از Solar Calendar Package استفاده کنید که اینم چیز خوبیه اما وقتی معرفی شده بود که من دیگه قبلی رو خریده بودم .:13:

موفق باشید
19-07-2009, 17:36
SMNsoft

IsKabiseh

سلام

وقتی از IsKabiseh استفاده می کنم : (مانند زیر )

کد:

var Sd : string; begin sd := shamsi1.shamsi if shamsi1.IsKabiseh(sd) = true then label1.Caption := 'True' else label1.Caption := 'False'; end;

در خط :

کد:

if shamsi1.IsKabiseh(sd) = true then

خطا می ده.

خطا :

کد:

[Error] Unit1.pas(88): Types of actual and formal var parameters must be identical

خب. حلا باید چی کار کنم؟

ممنون
20-07-2009, 00:02
مرد مباح

من تعریفش رو دقیق یادم نیست. ولی ممکنه به جای True و False مقدیر 0 و 1 برگردونه.
و یا اینکه روی مفدار سال چک میکنه که احتمالا اینطوری هستش. یعنی 1388. نه تاریخ کامل.

به تعاریفش نگاه کنی درست میشه!
20-07-2009, 14:59
SMNsoft

سلام

*من این را امتحان کردم :

کد:

if shamsi1.IsKabiseh('1388') = 'True' then label1.Caption := 'True' else label1.Caption := 'False'; end;

خطا : ( شماره 1 )

کد:

[Error] Unit1.pas(91): Types of actual and formal var parameters must be identical

**این را امتحان کردم :

کد:

if shamsi1.IsKabiseh('1388') = True then label1.Caption := 'True' else label1.Caption := 'False'; end;

باز هم همون خطا را داد ( شماره 1 )

*** این :

کد:

if shamsi1.IsKabiseh('1388/01/01') = 'True' then label1.Caption := 'True' else label1.Caption := 'False'; end;

همون خطا

**** این :

کد:

if shamsi1.IsKabiseh('1388/01/01') = True then label1.Caption := 'True' else label1.Caption := 'False'; end;

باز هم همون خطا

***** این:

کد:

if shamsi1.IsKabiseh('1388') = '1' then label1.Caption := 'True' else label1.Caption := 'False'; end;

همون خطا

****** این :

کد:

if shamsi1.IsKabiseh('1388') = 1 then label1.Caption := 'True' else label1.Caption := 'False'; end;

دوباره همون خطا

******* این

کد:

if shamsi1.IsKabiseh('1388/01/01') = '1' then label1.Caption := 'True' else label1.Caption := 'False'; end;

و...

همه نوعی رو امتحان کردم ولی نشد.

در ضمن من از Shamsi.dll در ویژوال بیسیک استفاده کردم. در آن جا به راحتی کار کرد. در ویژوال بیسیک از تاریخ کامل و True یا False استفاده کردم. اما در دلفی نشد.

اصلا در دلفی می شود از IsKabiseh استفاده کرد.

خواهش می کنم کمکم کنید. خیلی لازمش دارم:19: