ورود

View Full Version : سوال: کانورت فایلهای Dos


arefih
جمعه 07 آبان 1400, 11:03 صبح
با سلام
من توی یه برنامه حقوق و دستمزد که با دلفی 7 نوشتم از طریق TTable با فایلهای تامین اجتماعی بابت لیست بیمه ارتباط برقرار کردم و با تابع DostoWin کانورت انجام دادم و اطلاعات را بدرستی نمایش میده
ولی همین کار را توی دلفی توکیو انجام دادم فقط بجای TTable از FireDac استفاده کردم ولی اطلاعات درست نمایش داده نمیشه
علت چی هست
ممنون اگه راهنمایی کنید
khoshblagh
جمعه 07 آبان 1400, 11:31 صبح
با سلام
اگر منظور شما از درست نشان ندادن اطلاعات نمایش لاتین حروف می باشد. این مربوط به یونیکد بودن این نسخه از دلفی است.
arefih
جمعه 07 آبان 1400, 11:52 صبح
سلام
ممنون از پاسخ جنابعالی
بله منظورم درست نشان ندادن بودن
حالی راهی داره یا نه
یوسف زالی
شنبه 08 آبان 1400, 02:49 صبح
اگر تابع شما اینه :
https://delphisources.ru/pages/faq/base/dos_to_win.html

به نظر می رسه باید بازنویسی بشه، و به جای استرینگ از انسی استرینگ استفاده کنید.
arefih
یک شنبه 09 آبان 1400, 10:28 صبح
ممنون از پاسخ
arefih
یک شنبه 09 آبان 1400, 13:08 عصر
جناب زالی
خیلی سعی کردم ولی موفق نشدم
امکانش بیشتر توضیح بدین
همانگونه که گفتم توی برنامه من delphi7 اطلاعات بدرستی توی فایلهای بیمه ذخیره میشه و مجدد توی برنامه خودم قابل نمایش هست و برای ارسال به سایت تامین اجتماعی هم مشکلی نداره
ولی همین روال را توی دلفی 2010 انجام میدم درست نمایش داده نمیشه
یعنی میفرمائید تابع dostowin را باید بازنگری کنم یا اینکه وقتی اطلاعات از فایل بیمه اماده شده قبلی داره میخونه باید ابتدا تبدیل به نوع دیگری از رشته ها بشه
ممنون
یوسف زالی
یک شنبه 09 آبان 1400, 16:33 عصر
من مبدا و مقصد شما رو نمی دونم به چه شکله ولی به نظر میاد ایراد از دو بایتی شدن کاراکترهاتونه
با این حساب باید این تابع رو دوباره بنویسید با انسی استرینگ و انسی کر
khoshblagh
یک شنبه 09 آبان 1400, 22:33 عصر
با سلام خدمت دوستان
من از یونیت پیوست که توسط یکی از برنامه نویسان عضو این سایت سالها پیش ارائه شده استفاده می کنم(خدا رحمت کند رفتگان ایشان و سایر دوستان که با راهنمایی بی منت باعث حل مشکلات کاربران و سایرین میشوند).
نمونه کد:

TableDsWorDosDSW_FNAME.Value:=UnicodeToIranSystemA (frmBimehDisket.TableDSKWOR00DSW_FNAME.Value);
arefih
جمعه 14 آبان 1400, 23:09 عصر
ممنون از پاسخ شما
arefih
دوشنبه 17 آبان 1400, 13:46 عصر
با سلام
دوست عزیز فرموده بودین از یونیت که لطف کردین فرستادین استفاده کنم
ولی متاسفانه حروف را بصورت کامل کانورت انجام نمی دهد
مثلا( حمیدرضا )را (؟؟؟درضا) برمیگردونه
البته گفتم خدمت شما من با دلفی 2010 کارمیکنم و برای ارتباط با جدول DBF فایلهای تامین اجتماعی از FDTable از FireDac استفاده کردم
ممنون میشم اگر راهنمایی بفرمائید
khoshblagh
سه شنبه 18 آبان 1400, 16:21 عصر
با سلام
من در محیط ویندوز 7 و دلفی4XE کار میکنم که هردو یونیکد هستند.
این رو ببین:

lblNamFamil.Caption:='نام و نام خانوادگی.: '+IranSystemToUnicodeW(trim(qryDSKWOR00TajmiDSW_LN AME.AsString)+' '+
trim(qryDSKWOR00TajmiDSW_FNAME.AsString));