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.023 c
14-22351
nikols
2001-10-31 18:55
2002.01.08
Encuesta: Quién está comprometido (sabe, está interesado en CORBA)


3-21954
Strahov
2001-12-05 15:32
2002.01.08
¿Alguien ha encontrado un error?


1-22039
Yuri btr
2001-12-18 10:46
2002.01.08
Forma


4-22468
Zabl
2001-11-02 11:56
2002.01.08
Pérdida de memoria


6-22278
garaje
2001-10-02 12:27
2002.01.08
Dime el algoritmo para reemplazar letras grandes con letras pequeñas.





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