Conectar a um servidor mysql e Network

Registrado: 01/11/09 Mensagens: 30

Como posso conectar meu jogo a um servidor, fazer uma query?
Quero fazer um sistema de login.
E como fazer o multiplayer? Li os tutoriais e intendi nada '-'

Registrado: 15/04/12 Mensagens: 338 Localização: Bom Jesus das Selvas

tambem não sei mais quero saber
so sei que
primeiro você deve aprender pascal para entender Very Happy

depois sobre comunicação TCP/IP eu acho.

Registrado: 10/07/11 Mensagens: 827 Localização: São Paulo - Capital

Eu estou tentando montar um tutorial sobre isso.
Terá tres partes: Site, programa cliente e programa servidor

Mas o trabalho e a faculdade estão me atrapalhando.

Registrado: 22/09/12 Mensagens: 8 Localização: Golfo do Mexico

Mano ...
Primeiro você tem que iniciar um coneção com uma DB no MySQL , certo ?

Então...

Lá vai :

Script para forçar o Pascal a Procurar um Banco MySQL ;

type
encript ;
}
}
//nome da db
select.host.start="Mysqlbase" them
if connection =="coneção estabelecida"
else
if connection ==erro .goto "erro"
erro="coneção não existe !"
{}
//ip do host , se for localhost será 127.0.0.1
select.host.ping="192.168.0.63" them
if exists =="host funcionando!
else
if error == go to "erro2"
erro2 =="ip nao existe"
{}
//login para o banco de dados
start.label2.getobject="label2" them
if get return ==true
else
name= login
var ;
function.get.sys = true
{}
//senha para o Banco de Dados
start.label3.getobject="label3" them
if get return ==true them action="md5" decompile="+a"
else
name == Erro goto="Erro"
Erro =="Senha Errada"

Mysql.get.
connection ==label2;label3;host.ping.acess;host.start ;
{}
If End;
End ;

Agora o GUI para Login !

Action cadastro;
uses wincrt;

type

t_username = record

username : integer;
nome : string [60];
senha[80];
personagens:array [1..8] of integer;
Leveis:array [1..15]of string; &select %.host

end;

var cod_user: t_username;

i : integer;

Begin

clrscr;
write ('Digite o seu username:');
readl(cod_username.username);

write ('Digite o seu nome:');
readln(cod_username.nome);

write ('Digite a sua senha:');
read (cod_username.senha); = interger;

write ('confirme seua senha:');
read (cod_username.avulse"++a);

for i:=1 to 15 do

Begin

write ('Digite a ',i' conta Usuario: ');

readln(reg_username. select[i]) ;

End;

writeln ('*** Os dados do usuario são:***');

writeln

writeln ('Username..... ......... ......:', reg_account. num_user) ;

writeln ('Nome...... ......... ......:', reg_account. nome-user) ;

writeln ('Senha..... ......... ......:'; reg_account. senha);

End.

Registrado: 22/09/12 Mensagens: 8 Localização: Golfo do Mexico

e é claro que você só vai usar esse Script se o TCP/Ip não funcionar corretamente ...

e por favor , espero que gostem pois deu o MAIOR trabalhão para monta esse Script ai ...

Valeu ... Espero que tenha valido a pena !

__________________________________________________________________________________________________________________________________

Jamais trate mal um Nerd , pois um dia será você que irá trabalhar para ele !
*Bill Gates*

Registrado: 23/01/13 Mensagens: 171

Parabéns, ao ilustre usuário "masterflat", eu lhe concedo o troféu pá de ouro...
Esse troféu foi concedido pelo seu grande e impressionante feito: ressuscitar milagrosamente um tópico de Abril de 2012...

De acordo com a regra 4 do fórum:

	Edirlei escreveu:
	Tópicos Antigos - Verifique a data de um tópico antes de postar uma mensagem. Não poste novas mensagem em tópicos muito antigos. Estas são as regras mais importantes, é claro que existem outras, mas acredito que o bom senso de cada um é suficiente.

Jã são 3 tópicos que você faz isso...

Registrado: 15/10/12 Mensagens: 352

	Douglas Winchester escreveu:
	Parabéns, ao ilustre usuário "masterflat", eu lhe concedo o troféu pá de ouro...

kkkkkkkkkk deixa o cara ser feliz respondendo a tópicos que tem até tutorias cara kkkkkkk e tu acha que tem algum moderador agora pra conceder oficialmente esse premio a ele?

Registrado: 23/01/13 Mensagens: 171

	kisedek escreveu:
	kkkkkkkkkk deixa o cara ser feliz respondendo a tópicos que tem até tutorias cara kkkkkkk e tu acha que tem algum moderador agora pra conceder oficialmente esse premio a ele?

Tem o Edirlei, ele num responde os tópicos, mais que ele visita esse fórum todo dia, ah isso ele faz, se você duvida, crie um tópico xingando alguém, em menos de 24h você vai ser banido e o tópico vai ser deletado Shocked