घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मुख्य";
वर्तमान संग्रह: 2004.12.12;
डाउनलोड करें: [xml.tar.bz2];

नीचे

ANSI से OEM रूसी पाठ तक रीकोडिंग इसी तरह की शाखाएँ खोजें


musicman   (2004-11-27 23:10) [0]

सहकर्मियों !!! कृपया मदद करें ...

कार्य यह है, एएनएसआई एन्कोडिंग में रूसी पाठ को डॉस एन्कोडिंग में ट्रांसकोड करना आवश्यक है ...
CharToOem फ़ंक्शन मदद नहीं करता है, यह केवल अंग्रेजी पाठ के साथ सही ढंग से काम करता है ...
फिर क्या करें ???



ssk ©   (2004-11-27 23:13) [1]

http://delphibase.endimus.ru/?action=viewfunc&topic=strconvert&id=10476



palva ©   (2004-11-27 23:44) [2]

संगीतकार (27.11.04 23: 10)
> केवल अंग्रेजी पाठ के साथ सही ढंग से काम करता है
अंग्रेजी अक्षरों के लिए ANSI DOS से कैसे भिन्न है?



musicman   (2004-11-27 23:46) [3]

पाव्ला

यह बिल्कुल अलग नहीं है ...
और रूसी अलग है ... और पुनरावृत्त नहीं ...: (((



palva ©   (2004-11-27 23:51) [4]

मुझे नहीं पता कि चारोटेम के बारे में कैसे पता है, लेकिन एएनएसटीओओम को काम करना चाहिए। यह एक एपीआई फ़ंक्शन है और यह स्थानीय स्वतंत्र है। यह जर्मन और फ्रेंच के लिए समान काम करता है।



Piter ©   (2004-11-27 23:58) [5]

प्रश्न: OEM एन्कोडिंग (डॉस) से एएनएसआई एन्कोडिंग (विंडोज) और इसके विपरीत से एक स्ट्रिंग को कैसे ट्रांसकोड किया जाए? उत्तर: CharToOem और OemToChar फ़ंक्शन का उपयोग करें। एक उदाहरण: फ़ंक्शन Win2Dos (const aStr: स्ट्रिंग): स्ट्रिंग; शुरू करना परिणाम: = aStr; यदि परिणाम <> "" तब चारटूओम (पीशर (रिजल्ट), पीसीआर (रिजल्ट)); अंत; फ़ंक्शन Dos2Win (const aStr: स्ट्रिंग): स्ट्रिंग; शुरू करना परिणाम: = aStr; यदि परिणाम <> "" तब OemToChar (PChar (परिणाम), PChar (परिणाम)); अंत; उत्तर दिया: पानोव

यह रूसी पत्रों के साथ भी ठीक काम करता है ...



musicman   (2004-11-28 00:02) [6]

पाव्ला

शायद मैं कुछ गलत कर रहा हूँ ???
इसे रेट करें:
मेमोफैम.लिंस.टेक्स्ट: = ZAPROS;
शुरू करना
एन: = मेमोफैम.लाइन.गेटटैक्;
AnsiToOem (एन, एन);
मेमोफैम। लाईन्स। पाठ: = स्ट्रैपस (एन);
अंत;
ZAPROS: = MemoFam.Lines.Text;

और कुछ भी नहीं होता ...
हां, मैं यह कहना भूल गया कि, रूपांतरण के बाद, पाठ एक पाठ फ़ाइल में लिखा जाता है और वहां सहेजा जाता है ...



palva ©   (2004-11-28 10:35) [7]

1। AnsiToOem के लिए दोनों मापदंडों की आवश्यकता होती है टाइप PChar की।
2। StrPas आवश्यक नहीं है क्योंकि VCL हर जगह लंबे तार का उपयोग करता है।
3। चारोटेम मेरे लिए भी काम करता है। यहाँ कंसोल एप्लिकेशन का एक कार्यशील उदाहरण दिया गया है:

विंडोज का उपयोग करता है; वर s1, s2: स्ट्रिंग; शुरू करना s1: = "Be"; s2: = "स्वस्थ!"; चारटूओम (पीशर (s1), पीसीर (s1)); AnsiToOem (PChar (s2), PChar (s2)); WriteLn (s1, s2); // स्वस्थ रहें अंत।



पन्ने: 1 पूरी शाखा

मंच: "मुख्य";
वर्तमान संग्रह: 2004.12.12;
डाउनलोड करें: [xml.tar.bz2];

ऊपर









मेमोरी: 0.58 एमबी
समय: 0.067 c
4-1098956180
हम थे
2004-10-28 13:36
2004.12.12
सक्रिय खोजकर्ता विंडो का पथ प्राप्त करें


14-1100984088
डेमन-777
2004-11-20 23:54
2004.12.12
जिनके पास घर में अधिक 1 काम करने वाले पीसी हैं


4-1098882908
योंग
2004-10-27 17:15
2004.12.12
फॉर्म पर माउसमूव को कैसे पकड़ना है


1-1101631705
Yus
2004-11-28 11:48
2004.12.12
सूची दृश्य


4-1098854619
MENART
2004-10-27 09:23
2004.12.12
सक्रिय डिस्कोटॉप





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский