Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Ressource konnte nicht in Datei gespeichert werden Finden Sie ähnliche Zweige


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

Liebe Meister! Ich schreibe in C ++, aber ich musste ein Programm in Delphi schreiben.
Im folgenden Code werden beim Ausführen zwei Zeilen "ignoriert",
markiert !!!, obwohl der Code für sie generiert wird
(Im Code-Browser sind die Zeilen mit einem blauen Punkt markiert, die Optimierung ist deaktiviert).
Frage: warum? Ich vermute, dass der Hund in StrCat begraben ist,
weil verstand die Zeilen in Pascal nicht vollständig,
trotz der scheinbaren Affinität PChar mit "sishnymi" -Linien.
(FullPath ist eine globale Variable, PChar)

function DoResource (Instanz: HModule; ResType: PChar;
ResName: PChar; Param: Longint): BOOL; stdcall;
war
Res: TResourceStream;
Dateiname: PChar;
beginnen
GetMem (Dateiname, 255);
Dateiname ^: = Chr (0);
Res: = TResourceStream.Create (Instanz, ResName, ResType);
!!! Dateiname: = StrCat (FullPath, ResName);
!!! Res.SaveToFile (Dateiname);
Res.Free;
DoResource: = true;
end;



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

function DoResource (Instanz: HModule; ResType: PChar;
ResName: PChar; Param: Longint): BOOL; safacall {!!!!!!};
war
Res: TResourceStream;
Dateiname: PChar;
beginnen
GetMem (Dateiname, 255);
versuche es
Dateiname ^: = Chr (0);
mit TResourceStream.Create (Instanz, ResName, ResType) tun
versuche es
!!! Dateiname: = StrCat (FullPath, ResName);
!!! SaveToFile (Dateiname);
endlich
Res.Free;
ende
DoResource: = true;
endlich
Freemem (Dateiname);
ende
end;



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

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



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

+ zhelatelno

vmesto StrCat polzovatj StrLCat versuchen block sdelatj.

Mit freundlichen Grüßen.



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

> MrBeer.
Und so war es auch. Ich bin gerade zum Zeitpunkt der Suche nach einer Panne, um das Maximum zu beseitigen.
Vielen Dank!



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

function DoResource (Instanz: HModule; ResType: PChar;
ResName: PChar; Param: Longint): BOOL; Safecall {!!!!!!};
war
Dateiname: Zeichenfolge;
beginnen
GetMem (Dateiname, 255);
versuchen
Dateiname: = "";
mit TResourceStream.Create (Instanz, ResName, ResType) tun
versuchen
!!! Dateiname: = FullPath + Zeichenfolge (ResName);
!!! SaveToFile (Dateiname);
endlich
Res.Free;
end;
DoResource: = true;
endlich
Freemem (Dateiname);
Ende
end;



Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben









Speicher: 0.57 MB
Zeit: 0.024 c
6-22276
Lamok
2001-10-05 23:13
2002.01.08
Senden von Daten an das Internet


1-22227
Tosov
2001-12-15 10:43
2002.01.08
So arbeiten Sie mit TInplaceEdit


7-22444
VS
2001-09-27 07:14
2002.01.08
So kopieren Sie sich, wenn das Programm ausgeführt wird


14-22338
Dima-k17
2001-11-05 10:57
2002.01.08
Os petros


3-21940
Serik
2001-12-05 09:15
2002.01.08
InterBase und VisualC ++





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch