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.82 MB
Zeit: 0.024 c
3-21954
Strahov
2001-12-05 15:32
2002.01.08
Hat jemand einen Fehler gefunden?


3-21908
Dup
2001-11-28 13:27
2002.01.08
Anwendung hängen


4-22470
Shevchenko Sergey
2001-11-02 13:32
2002.01.08
Внедрение


3-21976
Termik
2001-12-06 11:47
2002.01.08
Gespeicherte Prozeduren, dynamische Objekte


1-22056
Delphimun
2001-12-15 13:11
2002.01.08
Wie erstelle ich eine Ressource mit brcc32.exe?





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Swedish 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