mariquito Postado Março 3, 2007 Denunciar Share Postado Março 3, 2007 como eu faço essa funçãoestar dando error no "edScreenName.Text " parece que não encontra mais ele estar laWriteTextk := '<' + edScreenName.Text + '>' + '<' + '"Server"' + '>' + '<' + 'Mensagem' + #13#10'>'; ChatClientSocket.Socket.SendText(WriteTextk); Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Março 3, 2007 Denunciar Share Postado Março 3, 2007 OpaTalvez:WriteTextk := '<' + edScreenName.Text + '>' + '<' + '"Server"' + '>' + '<' + 'Mensagem' + #13 + #10 + '>';abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mariquito Postado Março 4, 2007 Autor Denunciar Share Postado Março 4, 2007 OpaTalvez:WriteTextk := '<' + edScreenName.Text + '>' + '<' + '"Server"' + '>' + '<' + 'Mensagem' + #13 + #10 + '>';abraçonão deu certo ainda irmão error no edScreenName.Text e no socket Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Março 4, 2007 Denunciar Share Postado Março 4, 2007 Opamariquito, se da erro no edScreenName então talvez esteja linkadoerrado o componente, que deve ser um Edit, tente remover esteedit e colocá-lo novamente com o nome EdScreenNameWriteTextk voce definiu como String correto?abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mariquito Postado Março 4, 2007 Autor Denunciar Share Postado Março 4, 2007 Opamariquito, se da erro no edScreenName então talvez esteja linkadoerrado o componente, que deve ser um Edit, tente remover esteedit e colocá-lo novamente com o nome EdScreenNameWriteTextk voce definiu como String correto?abraçoisso mais error ainda está aqui olha a funçãofunction enviaraosocket(valor: String): String; var WriteTextk:string;beginWriteTextk := '<' + edScreenName.Text + '>' + '<' + '"Server Admin"' + '>' + '<' + valor + #13#10'>'; ChatClientSocket.Socket.SendText(WriteTextk); end;chamar a função "enviaraosocket('TEXTO ENVIADO');"ERROR NO COMPILAR[Error] Unit_Client_Main.pas(313): Undeclared identifier: 'edScreenName' Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Março 4, 2007 Denunciar Share Postado Março 4, 2007 AhhhhhhhhhhhhhhhAgora que você colou a função inteira que eu vi o erro rsSeguinte, você criou a função mas ela não tem ligaçãocom o Form, então o compilador não vai reconhecer oEdScreenName mesmo, pra isso, você teria que linkarsua função com o form da seguinte forma:Em private você coloca o cabeçalho da função...privatefunction enviaraosocket(valor: String): String;Agora na função você linka o form, exemplofunction TNomedoForm.Enviaraosocket(valor: String): String;varWriteTextk:string;beginWriteTextk := '<' + edScreenName.Text + '>' +'<' + '"Server Admin"' + '>' +'<' + valor + #13#10'>';ChatClientSocket.Socket.SendText(WriteTextk);end;Há outras formas também, chamando o formfunction enviaraosocket(valor: String): String;varWriteTextk:string;beginWriteTextk := '<' + NomedoForm.edScreenName.Text + '>' +'<' + '"Server Admin"' + '>' +'<' + valor + #13#10'>';NomedoForm.ChatClientSocket.Socket.SendText(WriteTextk);end;ou também pra otimizar a leitura do códigofunction enviaraosocket(valor: String): String;varWriteTextk:string;beginwith NomedoForm dobeginWriteTextk := '<' + edScreenName.Text + '>' +'<' + '"Server Admin"' + '>' +'<' + valor + #13#10'>';ChatClientSocket.Socket.SendText(WriteTextk);end;end;Eu aconselho você usar ou o exemplo 1 ou o 3abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mariquito Postado Março 4, 2007 Autor Denunciar Share Postado Março 4, 2007 AhhhhhhhhhhhhhhhAgora que você colou a função inteira que eu vi o erro rsSeguinte, você criou a função mas ela não tem ligaçãocom o Form, então o compilador não vai reconhecer oEdScreenName mesmo, pra isso, você teria que linkarsua função com o form da seguinte forma:Em private você coloca o cabeçalho da função...privatefunction enviaraosocket(valor: String): String;Agora na função você linka o form, exemplofunction TNomedoForm.Enviaraosocket(valor: String): String;varWriteTextk:string;beginWriteTextk := '<' + edScreenName.Text + '>' +'<' + '"Server Admin"' + '>' +'<' + valor + #13#10'>';ChatClientSocket.Socket.SendText(WriteTextk);end;Há outras formas também, chamando o formfunction enviaraosocket(valor: String): String;varWriteTextk:string;beginWriteTextk := '<' + NomedoForm.edScreenName.Text + '>' +'<' + '"Server Admin"' + '>' +'<' + valor + #13#10'>';NomedoForm.ChatClientSocket.Socket.SendText(WriteTextk);end;ou também pra otimizar a leitura do códigofunction enviaraosocket(valor: String): String;varWriteTextk:string;beginwith NomedoForm dobeginWriteTextk := '<' + edScreenName.Text + '>' +'<' + '"Server Admin"' + '>' +'<' + valor + #13#10'>';ChatClientSocket.Socket.SendText(WriteTextk);end;end;Eu aconselho você usar ou o exemplo 1 ou o 3abraçovai veio certinho muito obrigado!vlw irmão Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
mariquito
como eu faço essa função
estar dando error no "edScreenName.Text " parece que não encontra mais ele estar la
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.