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 & 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.57 MB
Tiempo: 0.039 c
1-22163
marina
2001-12-20 16:29
2002.01.08
Nombres de los meses


14-22361
Nikolay
2001-11-08 00:17
2002.01.08
Sí ...............................


1-22097
Serzhik
2001-12-19 15:45
2002.01.08
¿Cuáles son los dos botones para adjuntar, de modo que estén en la parte inferior central?


4-22512
Yaroslav
2001-10-31 13:17
2002.01.08
Cómo crear un menú emergente en la API


3-21997
J
2001-12-05 11:46
2002.01.08
Cómo crear un usuario con permisos como sysdba





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 Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana 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