[Duvida] Problema com .RES

[~Juniior 0]

Faço o seguinte:

 

Adiciono em implementation:

{$R Resource.res}

 

Adiciono o procedure:

procedure Resource(Save, ID, Ext : String);

begin

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

try

SaveToFile(Save);

finally

Free;

end;

end;

 

Acrecento no meu button:

begin

Resource('C:\Projeto\ai.kom', 'AIKOM', 'KOM');

 

no meu computador funciona! mas quando vou testar no do meu pai da: AIKOM não encontrado! ajude-me!

 

alguem pode me ajudar?

[Zaphey 2]

Você tem certeza que a .res estava junto?

[~Juniior 0]

oque devo fazer para não precisar mandar o resource.res junto?

[edoO~' 1]

é obrigatório a resource estar junto com o projeto!

[~Juniior 0]

eu não lembro os códigos, mais eu ja fiz projetos sem precisar enviar o resource.res, será que alguem mais experiente pode me ajudar??

[CheaterMX 19]

é o mesmo caminho?

[~Juniior 0]

como assim? "mesmo caminho?"

[Zaphey 2]

Quando ele disse 'Mesmo caminho' ele quis dizer 'Mesmo diretório'.

Entendestes?

[~Juniior 0]

cara oque eu quero saber é se tem um geito de enviar o meu project1.exe pra alguem sem pasta nenhuma, sem resource.res!

 

apenas o project1.exe

 

Observe qualque cheat! ele vem apenas com o .EXE e o kernel / unloker ,,, sem ai.kom, sem resource... sem nda

[edoO~' 1]

mas é claro que dá...

o executável dá

mas no projeto

do delphi

a resource precisa está dentro da pasta..

senao ele nao le a resource..

mas o .exe da sim!

 

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

• Entre
• ou
• Cadastre-se

nunca vi esse código na vida...

(o de cima)

 

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

• Entre
• ou
• Cadastre-se

 

 

 

 

@Edit

agora eu intendi sua dúvida

esse seu jeito é muito estranho...

 

declare a resource...

coloque essa variável global:

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

• Entre
• ou
• Cadastre-se

 

 

no button, coloque...

 

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

• Entre
• ou
• Cadastre-se

[~Juniior 0]

da pra explicar melhor?

tem como?

[edoO~' 1]

mas é claro que dá...

o executável dá

mas no projeto

do delphi

a resource precisa está dentro da pasta..

senao ele nao le a resource..

mas o .exe da sim!

 

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

• Entre
• ou
• Cadastre-se

nunca vi esse código na vida...

(o de cima)

 

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

• Entre
• ou
• Cadastre-se

 

 

 

 

@Edit

agora eu intendi sua dúvida

esse seu jeito é muito estranho...

 

declare a resource...

coloque essa variável global:

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

• Entre
• ou
• Cadastre-se

 

 

no button, coloque...

 

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

• Entre
• ou
• Cadastre-se

 

 

fuuuuuuuuuuuuuuu

deu duplo post

[~Juniior 0]

deu o seguinte error:

 

[Error] RLINK32: Unsupported 16bit resource in file "Resource.RES"

[edoO~' 1]

sinceramente..

eu nunca vi esse erro na minha vida tbm

:D

mas se liga...

esse é o código básico, então....

é isso, lol'

 

perguntinha

deu alguma linha vermelha?

só deu esse erro?

[darkfenyx3 7]

"Esse erro ocorre quando houve modificações no arquivo e durante a compilação o arquivo ficou corrompido."

 

Delete o Resource.res e faça um novo.

[†Guilherme™ 1]

Edoo realmente o codigo

nunca vi quando eu fiz

um treco assim , nem lembro

mais foi com ajuda do Yuri

e ele me explico dps.

 

@Junio tente isso no botao

 

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

• Entre
• ou
• Cadastre-se

 

Se nao der sugiro cria outro

pois nao sei o erro.

[~Juniior 0]

Ficou Otimo!!

tirem só + esta duvida e dou '+' pra vcs!

 

como adiciono o código de menssagem:

begin

showmessage('error ao ativar o One-Hit, tente novamente')end

else

showmessage('One-Hit ativado com sucesso!');

end;

 

no procedure:

procedure TForm1.Button1Click(Sender: TObject);

begin

try

r := TResourceStream.Create(HInstance, 'aikom', 'kom');

r.SaveToFile('\Projeto Delphi\ai.kom');

finally

r.Free;

end;

 

quando faço isso:

 

begin

try

r := TResourceStream.Create(HInstance, 'aikom', 'kom');

r.SaveToFile('\Projeto Delphi\ai.kom');

finally

r.Free;

end;

end;

begin

showmessage('error ao ativar o One-Hit, tente novamente')end

else

showmessage('One-Hit ativado com sucesso!');

end;

 

da sempre ERROR no 'else'!

[darkfenyx3 7]

Isso que da só copiar... aí está.

 

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

• Entre
• ou
• Cadastre-se

[~Juniior 0]

ocorreu os errors

 

Build

[Error] Unit1.pas(119): ';' expected but 'ELSE' found

[Error] Unit1.pas(123): '.' expected but 'END' found

[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

 

no codigo:

procedure TForm1.Button1Click(Sender: TObject);

begin

try

r := TResourceStream.Create(HInstance, 'aikom', 'kom');

r.SaveToFile('\Projeto Delphi\ai.kom');

finally

r.Free;

end;

showmessage('Auto-Kill não ativado')end

else

showmessage ('Auto-Kill ativado');

end;

end;

[†Guilherme™ 1]

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

• Entre
• ou
• Cadastre-se

 

Cara sugiro cria outra source , isso ja

complico demais com esse erro

a source deve esta com erro

na base dela.

[edoO~' 1]

[Error] Unit1.pas(119): ';' expected but 'ELSE' found

[Error] Unit1.pas(123): '.' expected but 'END' found

 

???

dúvida tola

apenas tire o ; em cima do else

e coloque um . que está faltando!