Function
Como crio um function, quero fazer um programa servidor outro cliente, quer fazer um function no servidor que quando ele recebe o :=true lá no server tem um function q interpreta este :=true e faz uma serie de coisas.
Como fazer isso ?
Como fazer isso ?
Ropesca
Curtidas 0
Respostas
Robotizar
01/07/2003
olha velhinho eu to fazendo um prog de acesso remoto eu acho q entendi sua pergunta tipo eu resolvi este prob da seguinte forma
tem o procedure msg oi
procedure msg;
begin
showmessage(´oi´);
end;
e o msg olá
procedure msg2;
begin
showmessage(´olá´);
end;
ai um q executa a msg correta
procedure executa(msg: integer);
begin
case msg of
1: msg;
2: msg2;
end;
end;
e no onread do componete puz
executa(server.socket.reciveText);
server é o meu server
so naum lembro se o comando se escreve assim mesmo naum to com o delphi aberto
mais é isso
claro q meu programa naum fica mostrando msg né foi só um exemplo
espero ter ajudado
tem o procedure msg oi
procedure msg;
begin
showmessage(´oi´);
end;
e o msg olá
procedure msg2;
begin
showmessage(´olá´);
end;
ai um q executa a msg correta
procedure executa(msg: integer);
begin
case msg of
1: msg;
2: msg2;
end;
end;
e no onread do componete puz
executa(server.socket.reciveText);
server é o meu server
so naum lembro se o comando se escreve assim mesmo naum to com o delphi aberto
mais é isso
claro q meu programa naum fica mostrando msg né foi só um exemplo
espero ter ajudado
GOSTEI 0
Robotizar
01/07/2003
olha velhinho eu to fazendo um prog de acesso remoto eu acho q entendi sua pergunta tipo eu resolvi este prob da seguinte forma
tem o procedure msg oi
procedure msg;
begin
showmessage(´oi´);
end;
e o msg olá
procedure msg2;
begin
showmessage(´olá´);
end;
ai um q executa a msg correta
procedure executa(msg: integer);
begin
case msg of
1: msg;
2: msg2;
end;
end;
e no onread do componete puz
executa(server.socket.reciveText);
server é o meu server
so naum lembro se o comando se escreve assim mesmo naum to com o delphi aberto
mais é isso
claro q meu programa naum fica mostrando msg né foi só um exemplo
espero ter ajudado
tem o procedure msg oi
procedure msg;
begin
showmessage(´oi´);
end;
e o msg olá
procedure msg2;
begin
showmessage(´olá´);
end;
ai um q executa a msg correta
procedure executa(msg: integer);
begin
case msg of
1: msg;
2: msg2;
end;
end;
e no onread do componete puz
executa(server.socket.reciveText);
server é o meu server
so naum lembro se o comando se escreve assim mesmo naum to com o delphi aberto
mais é isso
claro q meu programa naum fica mostrando msg né foi só um exemplo
espero ter ajudado
GOSTEI 0
Robotizar
01/07/2003
olha velhinho eu to fazendo um prog de acesso remoto eu acho q entendi sua pergunta tipo eu resolvi este prob da seguinte forma
tem o procedure msg oi
procedure msg;
begin
showmessage(´oi´);
end;
e o msg olá
procedure msg2;
begin
showmessage(´olá´);
end;
ai um q executa a msg correta
procedure executa(msg: integer);
begin
case msg of
1: msg;
2: msg2;
end;
end;
e no onread do componete puz
executa(server.socket.reciveText);
server é o meu server
so naum lembro se o comando se escreve assim mesmo naum to com o delphi aberto
mais é isso
claro q meu programa naum fica mostrando msg né foi só um exemplo
espero ter ajudado
tem o procedure msg oi
procedure msg;
begin
showmessage(´oi´);
end;
e o msg olá
procedure msg2;
begin
showmessage(´olá´);
end;
ai um q executa a msg correta
procedure executa(msg: integer);
begin
case msg of
1: msg;
2: msg2;
end;
end;
e no onread do componete puz
executa(server.socket.reciveText);
server é o meu server
so naum lembro se o comando se escreve assim mesmo naum to com o delphi aberto
mais é isso
claro q meu programa naum fica mostrando msg né foi só um exemplo
espero ter ajudado
GOSTEI 0