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

नीचे

फाइल करने के लिए संसाधन नहीं बचा सके इसी तरह की शाखाएँ खोजें


Reyst   (2001-12-16 15:56) [0]

Уважаемые мастера! Пишу на C++, но понадобилось написать программу на Delphi.
В нижеприведенном коде при выполнении "игнорируются" две строки,
помеченные !!!, несмотря на то, что код для них генерируется
(в браузере кода строки отмечены синей точкой, оптимизация отключена).
Вопрос: почему? Подозреваю, что собака зарыта в StrCat,
т.к. не до конца разобрался со строками в Паскале,
несмотря на явное родство PChar с "сишными" строками.
(FullPath - глобальная переменная, PChar)

function DoResource(Instance: HModule; ResType: PChar;
ResName: PChar; Param: Longint): BOOL; stdcall;
था
Res: TResourceStream;
FileName: PChar;
शुरू करना
GetMem(FileName, 255);
FileName^ := Chr(0);
Res := TResourceStream.Create(Instance, ResName, ResType);
!!! FileName := StrCat(FullPath, ResName);
!!! Res.SaveToFile(FileName);
Res.Free;
DoResource := true;
अंत;



PVR   (2001-12-16 19:35) [1]

function DoResource(Instance: HModule; ResType: PChar;
ResName: PChar; Param: Longint): BOOL; safacall{!!!!!!};
था
Res: TResourceStream;
FileName: PChar;
शुरू करना
GetMem(FileName, 255);
कोशिश
FileName^ := Chr(0);
with TResourceStream.Create(Instance, ResName, ResType) do
कोशिश
!!! FileName := StrCat(FullPath, ResName);
!!! SaveToFile(FileName);
अंत में
Res.Free;
अंत;
DoResource := true;
अंत में
freemem(filename);
अंत
अंत;



MrBeer   (2001-12-16 19:54) [2]

// ......
FileName := StrAlloc(512);
Res := TResourceStream.Create(Instance, ResName, ResType)
StrCopy(FileName, FullPath);
StrCat(FileName, ResName);
Res.SaveToFile(StrPas(FileName));
Res.Free;
StrDispose(FileName);
// ......



MrBeer   (2001-12-16 19:59) [3]

+ zhelatelno

vmesto StrCat polzovatj StrLCat और कोशिश block sdelatj.

सबसे अच्छा संबंध है।



Reyst   (2001-12-16 20:03) [4]

> MrBeer.
А так и было. Просто я на время поиска глюка все убрал по максимуму.
शुक्रिया!



PVR   (2001-12-16 22:22) [5]

function DoResource(Instance: HModule; ResType: PChar;
ResName: PChar; Param: Longint): BOOL; safecall{!!!!!!};
था
FileName: स्ट्रिंग;
शुरू करना
GetMem(FileName, 255);
कोशिश
FileName := "";
with TResourceStream.Create(Instance, ResName, ResType) do
कोशिश
!!! FileName := FullPath+string(ResName);
!!! SaveToFile(FileName);
आखिरकार
Res.Free;
अंत;
DoResource := true;
आखिरकार
freemem(filename);
समाप्त
अंत;



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

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

ऊपर









मेमोरी: 0.82 एमबी
समय: 0.036 c
1-22021
Socol
2001-12-18 08:54
2002.01.08
फ़ाइल डाउनलोड करें!


1-22013
जिज्ञासु
2001-12-17 12:53
2002.01.08
वर्तमान कार्यक्रम से निर्वासित रन।


3-21926
Oleon
2001-12-04 15:14
2002.01.08
डेल्फी से एक तालिका बनाना।


14-22337
अलेक्सेंद्र
2001-11-05 13:20
2002.01.08
प्रिंट सर्वर DP-101 (D-Link) और DOS के तहत मुद्रण


1-22237
पीवीआर
2001-12-16 17:20
2002.01.08
TListView सहायता प्रकार





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