Ajud Resource.RES

[whell 0]

Ajuda Resource.RES

 

AEW PESSOAL COMO EU JA DISSE INUMERAS VEZES SOU NOOBÃO NA HORA DE UTILIZAR UM RECURSO NO DELPHI HOJE FIZ MAIS UMA TENTATIVA FRUSTRADA QUE NAO DEU CERTO RESOLVI POSTAR TUDO QUE FIZ PRA DA ERRADO E SE VOCES PUDEREM ME AJUDAR PLEASE! estou testando em um Music player

 

primeiro abri o programa de criar .RES e comprimir .EXE do Owner

coloquei todos os arquivos do meu projeto nessa ordem

 

PROJECT2~DPR ~DPR "C:\Users\wherlon\Desktop\Metal Music Player\Project2.~dpr"

PROJECT2CFG CFG "C:\Users\wherlon\Desktop\Metal Music Player\Project2.cfg"

PROJECT2DOF DOF "C:\Users\wherlon\Desktop\Metal Music Player\Project2.dof"

PROJECT2DPR DPR "C:\Users\wherlon\Desktop\Metal Music Player\Project2.dpr"

PROJECT2RES RES "C:\Users\wherlon\Desktop\Metal Music Player\Project2.res"

UNIT1~DDP ~DDP "C:\Users\wherlon\Desktop\Metal Music Player\Unit1.~ddp"

UNIT1~DFM ~DFM "C:\Users\wherlon\Desktop\Metal Music Player\Unit1.~dfm"

UNIT1~PAS ~PAS "C:\Users\wherlon\Desktop\Metal Music Player\Unit1.~pas"

UNIT1DCU DCU "C:\Users\wherlon\Desktop\Metal Music Player\Unit1.dcu"

UNIT1DDP DDP "C:\Users\wherlon\Desktop\Metal Music Player\Unit1.ddp"

UNIT1DFM DFM "C:\Users\wherlon\Desktop\Metal Music Player\Unit1.dfm"

 

Peguei todo o conteúdo do .** e salvei no bloco de notas como Resource.** e coloquei ele no aplicativo pra gera um arquivo RES

 

Fui No Delphi e FIZ ISSO

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, MPlayer, ExtDlgs, StdCtrls, WinSkinData, jpeg, ExtCtrls;

 

type

TForm1 = class(TForm)

Button1: TButton;

MediaPlayer1: TMediaPlayer;

OpenDialog1: TOpenDialog;

SkinData1: TSkinData;

Image1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

{$R Resource.RES}

 

procedure Resource('C:\Metal Music Player', 'Resource.RES', 'RES' : String);

begin

with TResourceStream.Create(Hinstance, ID, PChar(Ext)) do

try

SaveToFile(Save);

finally

Free;

end;

end;

 

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Resource ('C:\Metal Music Player\Project2.~dpr','Project2.~dpr','~DPR');

Resource ('C:\Metal Music Player\Project2.cfg','Project2.cfg','CFG');

Resource ('C:\Metal Music Player\Project2.dof','Project2.dof','DOF');

Resource ('C:\Metal Music Player\Project2.dpr','Project2.dpr','DPR');

Resource ('C:\Metal Music Player\Project2.res','Project2.res','RES');

Resource ('C:\Metal Music Player\Unit1.~ddp','Unit1.~ddp','~DDP');

Resource ('C:\Metal Music Player\Unit1.~dfm','Unit1.~dfm','~DFM');

Resource ('C:\Metal Music Player\Unit1.~pas','Unit1.~pas','~PAS');

Resource ('C:\Metal Music Player\Unit1.dcu','Unit1.dcu','DCU');

Resource ('C:\Metal Music Player\Unit1.ddp','Unit1.ddp','DDP');

Resource ('C:\Metal Music Player\Unit1.dfm','Unit1.dfm','DFM');

 

MediaPlayer1.Close;

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer1.Open;

end;

end;

 

end.

 

 

O Que Fiz De Errado?

Meu RES ta no desktop Diretório C:\Users\wherlon\Desktop

\Metal Music Player\Resource.RES

 

tinha que estar no Disco C:\Metal Music Player\Resource.RES ou não?

 

Obrigado A Todos

[~OwneR~ 8]

4 Comentários a fazer...

1° Não pode ter caracteres "ilegais" na ID e EXT da resource

Alí em UNIT1~DDP ~DDP por exemplo têm 2 til e eles não são permitidos para criar a resource!

2° Para chamar a procedure você tem que colocar a id (que no caso é Project2~dpr) e não o nome Project2.~dpr

3° Não há a necessidade de criar resource da source do seu programa, já que os arquivos .pas e .dpr e .dfm viram .dcu e então cria o seu programa

4° O resource têm que estar na pasta do seu projeto...

 

Enfim, eu acho que é isso mesmo =)

[whell 0]

Criei um Resource só desses arquivos Olha

 

PROJECT2CFG CFG "C:\Users\wherlon\Desktop\Metal Music Player\Project2.cfg"

PROJECT2DOF DOF "C:\Users\wherlon\Desktop\Metal Music Player\Project2.dof"

PROJECT2RES RES "C:\Users\wherlon\Desktop\Metal Music Player\Project2.res"

UNIT1DCU DCU "C:\Users\wherlon\Desktop\Metal Music Player\Unit1.dcu"

UNIT1DDP DDP "C:\Users\wherlon\Desktop\Metal Music Player\Unit1.ddp"

 

e não deu erro de ID igual ou caracteres invalidos na hora de criar o .res

 

 

No Delphi Fiz ISSOO

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, MPlayer, ExtDlgs, StdCtrls, WinSkinData, jpeg, ExtCtrls;

 

type

TForm1 = class(TForm)

Button1: TButton;

MediaPlayer1: TMediaPlayer;

OpenDialog1: TOpenDialog;

SkinData1: TSkinData;

Image1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

{$R Resource.RES}

 

procedure Resource('C:\Metal Music Player\Resource.res','Resourceres','RES' : String);

begin

with TResourceStream.Create(Hinstance, ID, PChar(Ext)) do

try

SaveToFile(Save);

finally

Free;

end;

end;

 

 

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

 

Resource ('C:\Metal Music Player\Project2.cfg','Project2cfg','CFG');

Resource ('C:\Metal Music Player\Project2.dof','Project2dof','DOF');

Resource ('C:\Metal Music Player\Project2.res','Project2res','RES');

Resource ('C:\Metal Music Player\Unit1.dcu','Unit1dcu','DCU');

Resource ('C:\Metal Music Player\Unit1.ddp','Unit1ddp','DDP');

 

MediaPlayer1.Close;

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer1.Open;

end;

end;

 

end.

 

admito que isso é muito dificil e poucos conseguem mas estou quase desistindo '-.-' já foram inumeras tentativas e nenhuma deu certo nao sei o que eu faço de errado

[~OwneR~ 8]

Atá, entendi seu erro...

Alí em vermelho procedure Resource('C:\Metal Music Player\Resource.res','Resourceres','RES' : String); é pra deixar assim: procedure Resource(Save, ID, Ext : String);

Só na hora de chamar a procedure que você coloca onde salvar, a id e extensão!

Mas eu continuo sem entender pra que fazer a resource da source...

[whell 0]

eu devo fazer resource de quais arquivos?

quais são a source? :)

como eu disse sou noobinho '-'

o esquema que eu fiz ali então esta certinho?

Posso prosseguir?

[~OwneR~ 8]

Você pode fazer resource do que quiser, mas da source é desnecessária ser feita, source é o código fonte do seu programa, no caso são os arquivos que são usados para criar ele entendeu

Mas que seja...

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[whell 0]

mas qual dos arquivos dentre os que eu citei são a Source?

[~OwneR~ 8]

Todos...

[whell 0]

1)entao eu so posso criar resource dos arquivos .kom por exemplo?

o executavel eu mando e pronto ja ta feito?

e como eu crio resource de um mesmo arquivo .kom

pq tenho dois playertemplate.kom so que em pastas diferentes como faço isso?

no seu aplicativo da erro de ID igual como faço isso?

 

 

2)fiz resource de um arquivo .kom e deu tudo certo mas na hora de ativar o .kom ele ia para a pasta errada Oo

porque o diretório dele eu coloquei assim Resource ('C:\Trainer\AutoKill\playertemplate.kom','playertemplatekom','KOM');

No caso do verde eu teria que colocar o diretório do GrandChase? mas eu tenho um edit com o diretório do Gc eu coloquei isso ('Edit1.text + '\Stage\playertemplate.kom','playertemplatekom','KOM'); e deu errado Oo é sinal de que a resource não está certa?

mas quando eu coloco ('C:\Trainer\AutoKill\playertemplate.kom','playertemplatekom','KOM'); ela vai pra o diretório de origem que é o C:\Trainer\AutoKill\playertemplate.kom eu fiz um teste deletei o playertemplate.kom da pasta AutoKill e usei o aplicativo na hora que fui ver a pasta autokill o que tinha lá? o maldito playertemplate.kom

[~OwneR~ 8]

É só mudar a ID de um deles...

Tipo playertemplatekom1 e playertemplatekom2

[whell 0]

2)fiz resource de um arquivo .kom e deu tudo certo mas na hora de ativar o .kom ele ia para a pasta errada Oo

porque o diretório dele eu coloquei assim Resource ('C:\Trainer\AutoKill\playertemplate.kom','playert emplatekom','KOM');

No caso do verde eu teria que colocar o diretório do GrandChase? mas eu tenho um edit com o diretório do Gc eu coloquei isso ('Edit1.text + '\Stage\playertemplate.kom','playertemplatekom','K OM'); e deu errado Oo é sinal de que a resource não está certa?

mas quando eu coloco ('C:\Trainer\AutoKill\playertemplate.kom','playert emplatekom','KOM'); ela vai pra o diretório de origem que é o C:\Trainer\AutoKill\playertemplate.kom eu fiz um teste deletei o playertemplate.kom da pasta AutoKill e usei o aplicativo na hora que fui ver a pasta autokill o que tinha lá? o maldito playertemplate.kom

 

 

Obrigado :)