Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

No se pudo guardar el recurso en el archivo Encontrar ramas similares


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

Queridos maestros! Estoy escribiendo en C ++, pero tardé en escribir un programa en Delphi.
En el código de abajo, se ignoran dos líneas al ejecutar
Marcado !!!, a pesar de que el código para ellos se genera.
(En el navegador de códigos, las líneas están marcadas con un punto azul, la optimización está deshabilitada).
Pregunta: ¿por qué? Sospecho que el perro está enterrado en StrCat,
porque No entendí completamente las líneas en Pascal,
A pesar de la aparente afinidad de PChar con líneas "sishnymi".
(FullPath es una variable global, PChar)

función DoResource (instancia: HModule; ResType: PChar;
ResName: PChar; Param: Longint): BOOL; stdcall;
var
Res: TResourceStream;
Nombre de archivo: PChar;
comenzar
GetMem (nombre de archivo, 255);
Nombre de archivo ^: = Chr (0);
Res: = TResourceStream.Create (Instancia, ResName, ResType);
!!! Nombre de archivo: = StrCat (FullPath, ResName);
!!! Res.SaveToFile (FileName);
Res.Free;
DoResource: = true;
fin;



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

función DoResource (instancia: HModule; ResType: PChar;
ResName: PChar; Param: Longint): BOOL; safacall {!!!!!!};
var
Res: TResourceStream;
Nombre de archivo: PChar;
comenzar
GetMem (nombre de archivo, 255);
prueba
Nombre de archivo ^: = Chr (0);
con TResourceStream.Create (Instancia, ResName, ResType) hacer
prueba
!!! Nombre de archivo: = StrCat (FullPath, ResName);
!!! SaveToFile (FileName);
finalmente
Res.Free;
fin
DoResource: = true;
finalmente
freemem (nombre de archivo);
fin
fin;



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

// ......
Nombre de archivo: = StrAlloc (512);
Res: = TResourceStream.Create (Instancia, 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 e tratar de bloque sdelatj.

saludos cordiales.



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

> MrBeer.
Y así fue. Estoy justo en el momento de la búsqueda de un problema técnico para eliminar todo al máximo.
Gracias!



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

función DoResource (instancia: HModule; ResType: PChar;
ResName: PChar; Param: Longint): BOOL; safecall {!!!!!!};
var
Nombre de archivo: cadena;
comenzar
GetMem (nombre de archivo, 255);
tratar de
Nombre de archivo: = "";
con TResourceStream.Create (Instancia, ResName, ResType) hacer
tratar de
!!! Nombre de archivo: = FullPath + cadena (ResName);
!!! SaveToFile (FileName);
finalmente
Res.Free;
fin;
DoResource: = true;
finalmente
freemem (nombre de archivo);
final
fin;



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.56 MB
Tiempo: 0.023 c
14-22371
Denso
2001-11-08 17:11
2002.01.08
¿Vida después de la muerte?


4-22485
delphixnumx
2001-11-05 06:56
2002.01.08
¿Cómo puedo cargar mi cursor en el Delphi!


4-22506
gluka
2001-11-06 00:16
2002.01.08
¿Cómo meter un archivo * .dll en un archivo exe?


1-22061
Tracción a las ruedas
2001-12-18 19:44
2002.01.08
¿Por qué el formulario MDI no muestra MDIChild en el menú?


3-21913
SklifF
2001-12-03 19:08
2002.01.08
Columna Suma Pro





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español