Jump to content
Fórum Script Brasil

Archimeds

Membros
  • Posts

    13
  • Joined

  • Last visited

About Archimeds

Archimeds's Achievements

0

Reputation

  1. Archimeds

    Ponteiros, Pilha

    Olá Pessoal segue o seguinte código. Na linha p->topo = (pilha*)n;, está dando o seguinte erro: assignment from incompatible pointer type . Esse mesmo erro estava dando na linha anterior n->prox = (no*)p->topo; que eu resolvi com o casting (no*). Mas na liha 27 mencionada anteriormente isso não resolveu. ALguém pode explicar? Obrigado. #include <stdio.h> #include <stdlib.h> struct No { int info; struct No* prox; }; typedef struct No no; struct Pilha { struct no* topo; }; typedef struct Pilha pilha; pilha* cria(){ pilha* p = (pilha*)malloc(sizeof(pilha)); p->topo = NULL; return p; } pilha* empilhar(pilha* p, int v){ no* n = (no*)malloc(sizeof(no)); n->info = v; n->prox = (no*)p->topo; p->topo = (pilha*)n; return p; }
  2. cara ...deu certo !!! se não for muito incomodo...tu poderia me explica o que faz esse comando...porque quero aprender... Cs.Socket.SendText('GET ' + pt + ' HTTP/1.1' + chr(13)+chr(10) + 'Host: ' + Cs.Host + chr(13)+chr(10) + 'Accept: */*' + chr(13)+chr(10) + 'Connection: Close' + chr(13)+chr(10)+chr(13)+chr(10));
  3. tudo ok !! vlw pela ajuda até aqui !!!
  4. é muito difíicil fazer essa requisição ?? não tenho a mínima idéia de com seja !
  5. esqueci de me logar... CORRETO zuera...muito bem...o problema é que não consigo fazer ele retornar o que eu quero...o que eu quero está nessa página >> http://www.utorrent.com/testport.php?port=6969 << queria que pelo menos ele retornasse se a porta está aberta ou não.
  6. A parte em Negrito esta dando problema...gostaria de receber no meu form, mais especificamente no memo1 o texo que essa URL gera...li alguns artigos que dizem pra setar o nome da páginas...não sei que nome seria esse...enfim..tentei um monte de coisa que não deram certo... unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ScktComp, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Button1: TButton; Client: TClientSocket; Memo1: TMemo; Button2: TButton; procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket); procedure Button1Click(Sender: TObject); procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket); var nome:string; begin nome:='/testport.php?port='+edit1.text; Client.Host:='http://www.utorrent.com'; Client.Socket.SendText('GET ' + nome); end; procedure TForm1.Button1Click(Sender: TObject); begin Client.Active:=True; end; procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket); begin Memo1.Lines.Add(Socket.ReceiveText); end; procedure TForm1.Button2Click(Sender: TObject); begin Client.Close; end; end. o código do jeito que esta...se executado, e preenchido o valor do edit1...e clicar em verificar, da um erro, assim :: ESocketError whit message:'Can't Change Value while socket is active'.
  7. Zuera, acabei criando outro tópico pois não queria poluir esse...se puderes...passa la...é Receber dados Ii o nome...obrigado pela tua ajuda até agora. ! !
  8. da uma olhada...o que está faltando ?? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ScktComp, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Button1: TButton; Client: TClientSocket; Memo1: TMemo; procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin client.Host:='http://www.utorrent.com/testport.php?port='+edit1.text; end; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(Socket.ReceiveText); end; procedure TForm1.FormCreate(Sender: TObject); begin end; end.
  9. Correto!! muito bem e muito obrigada....já me ajudou muito...só nunca mexi com sockets, precisa adicionar algo no USES ? precisa passar algum parÂmetro nessa função que você postou ?
  10. a página verifica se tal porta esta aberta no seu pc... então eu gostaria de colocar num edit ou memo...o resultado dessa página, que é apenas texto, dizendo se tal porta esta aberta ou não
  11. Pessoal...é o seguinte...tenho uma URL armazenada em uma variável, eu gostaria de alguma forma, que ao clicar em um botão o conteúdo dessa URL, que é somente texto, aparecesse em um edit ou em um memo...alguém sabe ? PS: não é a URL que eu quero que apareça, é o conteúdo da página. - não sei se a melhor forma de fazer isso é com edit ou com memo... edit2.text := ??
  12. pergunta bem de quem não conhece praticamente nada de PHP...> existe uma função para setar foco em caixas de texto, botões e etc... ??
  13. Archimeds

    Botão Submeter

    Olá pessoal...sou iniciante no PHP, e estou acostumado com programação em delphi e semelhantes...bom a dúvida é a seguinte...gostaria de saber como funciona um botão do tipo submeter no PHP, por exemplo: tenho o código abaixo, e gostaria que o botão submeter quando clicado executasse somente a parte entre pontilhados, independente do if e else no código (imaginem que não tivesse o if/else)...como faço isso no php ? <?php $dim=3; $arrayA=$_POST['arrayA']; echo "Informe os elementos da matriz $dim ".x." $dim <br>"; if ($arrayA[0][0] == '') { echo "<form method='POST' action='matriz3.php'>"; for ($i=0; $i < $dim; $i++) { echo "<br>"; for ($j=0; $j < $dim; $j++) echo "<input type=text name='arrayA[$i][$j]'>"; } echo "<br><br>"; echo "<input type=submit value='Resultado'>"; echo "</form>"; } else { //--------------------------------------------------------------------- $menor=$arrayA[0][0]; $maior=$arrayA[0][0]; $soma=0; for ($i=0; $i < $dim; $i++) for ($j=0; $j < $dim; $j++) { if ($menor < $arrayA[$i][$j]) //menor elemento { $menor=$arrayA[$i][$j]; } if ($maior < $arrayA[$i][$j]) //maior elemento { $maior=$arrayA[$i][$j]; } $soma=$soma+$arrayA[$i][$j]; //soma dos elementos } echo "Resultados <br><br>"; echo "Menor elemento da matriz: $menor<br>"; echo "Maior elemento da matriz: $maior<br>"; echo "Soma dos elementos da matriz: $soma<br>"; //----------------------------------------------------------------------- } ?>
×
×
  • Create New...