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;
jung
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 {!!!!!!};
jung
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 machen auf 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 {!!!!!!};
jung
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.56 MB
Zeit: 0.029 c
1-22081
Andrewv
2001-12-18 14:14
2002.01.08
Wie kann ich einen Systemfehler verursachen?


1-22223
ANDREY196
2001-12-16 19:30
2002.01.08
So erstellen Sie einen ANI-Cursor-Live-Index


1-22032
Socol
2001-12-18 10:01
2002.01.08
Monopulation von Zahlen.


6-22274
Polevi
2001-10-08 10:42
2002.01.08
Und warum brauchen wir Steckdosen?


14-22359
Sergey1
2001-11-07 15:36
2002.01.08
Cp1251





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesisch (traditionell) 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 Italienisch 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