Edit server

[Anonymous]

alguem poderia ajudar no edit serve pois eu sei um jeito mais esse eito o serve ja dve estar compilado gostaria daquelke que e so vc compilar e ele cria ja o negocio alguem poderia ajudar vlw

[whit3_sh4rk]

O que você está querendo é saber como extrair o executável de dentro de outro.

Porém, vamos começar do começo (lol)

Você está na seção delphi.. tem várias coisas, sources, duvidas, etc..

O seu tópico se encaixa em Dúvidas/Ajuda, então na hora de criar o seu tópico, coloque:
[Ajuda] Edit Server (na verdade seria Build Server)

Vi outro post seu em outro tópico.. e estou apenas lhe dando um toque, já que é novo aqui..
Fórum não é chat.. havia uma dúvida no outro tópico, se você não tem nada para acrescentar ou ajudar, simplesmente não poste. Pois isso atrapalha o tópico, desvia assunto, além de ser flood.

Sobre sua dúvida, você tem que criar um resource do arquivo que você deseja colocar junto no seu programa para depois apenas extraí-lo e assim modificar os dados que deseja.

Leia sobre: http://delphi.about.com/od/objectpascal ... 21301a.htm

[]s

[Anonymous]

ok vlw a ajuda e ficarei mais atento vou ler  esse tiver duvidas posto aqui novamente ok

[Anonymous]

bom vlw deu certo concegui soque estou com uam duvida

aqui o codigo do edit serve

Code Select Expand

var
I: Integer;
Pos: Integer;
MSG : PChar;
FS: TFileStream;
Buffer: PChar;
begin
FS := TFileStream.Create(Application.ExeName, fmShareDenyNone);
GetMem(Buffer, FS.size);
FS.Read(Buffer^, FS.size);
Pos := 0;

for I := 0 to FS.size -1 do
if (Buffer[i] = '*') and (Buffer[i+1] = '*') and (Buffer[i+2] = '*') then
Pos := I;

if(Pos > 0) then
begin
MSG := Buffer + Pos + 3;
IP := MSG;
FreeMem(Buffer);
FS.Free;
end;
e aqui o do gerador do serve

Code Select Expand

var
Str: String;
begin
Str := Edit1.Text;
if not FileExists('Servidor.exe') then
begin
Exit;
end
else
begin

if Str <> '' then
begin
FS := TFileStream.Create('Servidor.exe', fmOpenWrite);
FS.Seek(0, soFromEnd);
Marca[0] := '*';
Marca[1] := '*';
Marca[2] := '*';
Marca[3] := #0;
GetMem(Buffer, Length(Str));
StrCopy(Buffer, PChar(Str));
FS.WriteBuffer(Marca, 3);
FS.WriteBuffer(Buffer^, Length(Str));
FreeMem(Buffer);
FS.Free;
ShowMessage('O servidor foi gerado na pasta do cliente.');
end;
end;
certo concegui fazer certinhu os negocios dos .res etals ta normal so que queria que alguem comentasse esse codigo explicando pra que serve algumas funçoes pois esse codigo ja peguei pronto emtaum naum sei como ele funciona emtende ele so ta configurado pra mudar o ip no serve queria saber vamos dizer eu faço um kl como acresentaria sabre pra ele alterar o e-mail no serve a snenha e tals eu sei que naum explicquei direito mais achu que so explicando os 2 codigos conciguirei soinhu orbigado aguardo respostas...

[Hacker Xtreme]

kara, tpw vc quer é fazer um Builder Server tipo do Instution é fácil xD
Eu te passo um code exemplo por msn me add ae > mailto:junior_antonio5@hotmail.com">junior_antonio5@hotmail.com ^^

[Anonymous]

ae sou eu o jrpf emtra ae no msn

[Hacker Xtreme]

ok, estou sem messenger no windows ¬¬
vou entrar usando o msn do linux xD