Comunicação entre software e internet Artigos

•   Envio de erros no sistema para seu database de clientes.

Quando o cliente liga para relatar o erro você já está ciente e tem a resposta, e possivelmente a correção.

•   Verificação automática de atualização do software.

Você pode informar ao seu cliente sobre novas versões, e inclusive já dar a opção de download da mesma.

•   Cadastros no site.

Fez um software gratuito e espalhou pela web? Coloque um formulário de contato dentro de seu software.

•   Seu provedor de hospedagem não deixa você instalar nada no server deles.

Sem problemas, com essa técnica você só precisa de um servidor que interprete ASP, PHP ou qualquer outro script que devolva páginas dinâmicas.

•   Administração de vários sites

Você pode desenvolver um sistema de portal de internet e criar a administração apenas via software. Imagine administrar uns 30 sites apenas com alguns cliques e apenas um software rodando localmente?

•   Registro on-line

Destrave seu software com uma consulta online em seu database. O pagamento foi feito? use uma conexão segura e libere o software de seu novo cliente em tempo real. Basta ele clicar em um "[ Verificar pagamento ]" por exemplo.

<form action='http://dominio.com/pagina.php' method='post'>
<input type='hidden' name='nome' value='valor'>
<input type='submit' value='Enviar'>
</form>

•   A empresa que fornece o hosting não permite (e com razão) que você instale seu programa-servidor no micro deles.
•   Caso você consiga de alguma forma instalar algo no server, esbarra com uma porta filtrada pelo firewall.
•   Se optar por fazer uma conexão direta ao banco de dados, existe a possibilidade de a empresa responsável não permitir conexões externas, liberando apenas por "localhost"
•   Se a empresa permite, você se dá conta de que a senha do seu database está gravada no micro de cada usuário de seu software. Um perigo!

<?php
echo "Hello World!";
?>

procedure TForm1.Button1Click(Sender: TObject);
begin
    showmessage(idHTTP1.Get('http://192.168.0.2/uploadmaster/site/script.php'));
end;

Arroz\n50 Kg\nFeijão\n200 Kg\nMolho de tomate\n500 latas

procedure TForm1.Button2Click(Sender: TObject); begin
    showmessage(idHTTP1.Get('http://192.168.0.2/uploadmaster/site/estoque.php'));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
    estoque: String;
begin
// showmessage(idHTTP1.Get('http://192.168.0.2/uploadmaster/site/estoque.php'));
    estoque:= idHTTP1.Get('http://192.168.0.2/uploadmaster/site/estoque.php');
    estoque:= StringReplace(estoque,'\n',chr(10),[rfReplaceAll]);
    showmessage(estoque);
end;

•   var estoque: String

Declarei uma variável "estoque" como variável de texto.

•   estoque:= idHTTP1.Get('http://192.168.0.2/uploadmaster/site/estoque.php');

Guardei nessa variável o resultado obtido pela web.

•   estoque:= StringReplace(estoque,'\n',chr(10),[rfReplaceAll]);

Quebrei em várias linhas, respeitando a localização do "\n".

procedure TForm1.Button3Click(Sender: TObject);
begin
    StringGrid1.FixedRows:= 1;
    StringGrid1.FixedCols:= 0;
    StringGrid1.ColCount:= 2;
    StringGrid1.Cells[0,0]:= 'Produto';
    StringGrid1.Cells[1,0]:= 'Quantidade';
end;

procedure TForm1.Button3Click(Sender: TObject);
var
    resultado: TStringList; //Cache do resultado
    estoque: String; //Resultado
    w,x,y,z: integer; //Variaveis para loop e quantidade de linhas
begin
    StringGrid1.FixedRows:= 1; //Linha cinza para os títulos
    StringGrid1.FixedCols:= 0; //Retira a coluna cinza
    StringGrid1.ColCount:= 2; //Trava em duas colunas
    StringGrid1.Cells[0,0]:= 'Produto'; //Título coluna 0
    StringGrid1.Cells[1,0]:= 'Quantidade'; //Título coluna 1

    resultado:= tstringlist.Create; //Cria o cache
    estoque:= idHTTP1.Get('http://192.168.0.2/uploadmaster/site/estoque.php'); //Baixa o resultado
    estoque:= StringReplace(estoque,'\n',chr(10),[rfReplaceAll]); //Divide em linhas
    resultado.Text:= estoque; //Guarda no cache

    w:= resultado.Count; //Conta as linhas
    w:= trunc(w*0.5)+1; //Divide pelo numero de colunas, e soma a linha fixa
    StringGrid1.RowCount:= w; //Prepara o grid com as linhas em branco

    x:= 1; y:= 1; z:= 0; //x: loop, y: numero da linha, z: linha do cache

while (x < w) do //Executa os comandos abaixo até que acabe o cache
    begin
    StringGrid1.Cells[0,y]:= resultado.Strings[z]; //Adiciona o resultado na coluna 0
    z:= z+1; //Avança o cache pra linha seguinte
    StringGrid1.Cells[1,y]:= resultado.Strings[z]; //Adiciona o resultado na coluna 1
    x:= x+1; y:= y+1; z:= z+1; //Gira o loop
    end;
end;

<?php
$nomefile= uniqid("arq") . ".txt";
$farquivo=fopen("txt/" . $nomefile,"w");
$mensagem=$_GET["mensagem"];
$mensagem= "Sua mensagem é: " . $mensagem . "\n";
fwrite($farquivo, $mensagem);
fclose($farquivo);
echo "Arquivo: " . $nomefile;
?>

•   Cria um nome aleatório para o arquivo de texto
•   Cria o arquivo
•   Captura a variável enviada pelo software
•   Escreve o texto no arquivo
•   Salva o arquivo
•   Fecha o arquivo
•   Informa o nome do arquivo criado.

function tratavariavel(entrada: String): String;
var
    i: Integer;
begin
    Result := '';
    for i := 1 to Length(entrada) do
        if ( ((Ord(entrada[i]) >= 48)
        and (Ord(entrada[i]) <= 57))
        or ((Ord(entrada[i]) >= 65)
        and (Ord(entrada[i]) <= 90))
        or ((Ord(entrada[i]) >= 97)
        and (Ord(entrada[i]) <= 122)) )
    then
        Result := Result + entrada[i]
    else
        Result := Result + '%' + InttoHex(Ord(entrada[I]), 2);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
    urlscript,variaveis,resposta: String; //Declaração das variáveis
begin
    urlscript:= 'http://192.168.0.2/uploadmaster/site/recebe.php?'; //URL que enviarei os dados
    variaveis:= 'mensagem=' + tratavariavel(memo1.Text); //A variável enviada
    resposta:= idHTTP1.Get(urlscript + variaveis); //Capturei a resposta do server
    showmessage(resposta); //Exibir a resposta
end;

» Gostou do texto? Veja nossos livros impressos

... ou use a busca para localizar outros artigos relacionados: