Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Delphi - Aktivacija softvera email-om

[es] :: Pascal / Delphi / Kylix :: Delphi - Aktivacija softvera email-om

[ Pregleda: 1648 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

bobans72

Član broj: 314360
Poruke: 117



Profil

icon Delphi - Aktivacija softvera email-om22.11.2016. u 06:51 - pre 89 meseci
Pozz...

Napravio sam da mi softver bude vezan za ID hardvera koji na pokretanju dialoga za registraciju biti pročitan.
Key generator sam takodje napravio samo ne znam na koji način da to
sve sjedinim da može automatski da se aktivira softver email-om.
Da li je neko od vas već to radio ili ima ideju i nakoji način to funkcioniše ?
Boban
 
Odgovor na temu

dogriz
Sombor

Član broj: 29744
Poruke: 259
*.static.isp.telekom.rs.

Sajt: dogriz.blogspot.com


+6 Profil

icon Re: Delphi - Aktivacija softvera email-om22.11.2016. u 07:21 - pre 89 meseci
Ideja je sasvim OK, jedino što ti za potpuno automatizovanu proceduru treba neki online (mail) server koji će na osnovu primljenog mail-a da pošalje odgovor sa aktivacionim kodom.
Možda bi jednostavnije bilo da na nekom tebi dostupnom web serveru postaviš malu php skriptu koja bi na POST/GET upit odradila posao, onako kako si definisao key generatorom. Ne znam koji algoritam koristiš za određivanje registracionog broja, ali verujem da to ne bi trebalo biti teško implementirati u php-u. Što se Delphi strane tiče - za komunikaciju sa web serverom ti je dovoljan Indy HTTPClient (ili slična komponenta, ne sećam se tačno, poodavno sam prešao na FPC/Lazarus...).
 
Odgovor na temu

Predrag Supurovic
Pedja YT9TP
Užice

Član broj: 157129
Poruke: 6275

Sajt: pedja.supurovic.net


+1570 Profil

icon Re: Delphi - Aktivacija softvera email-om22.11.2016. u 07:21 - pre 89 meseci
Imejlom a automatski? Nije neizvodljivo ali je nepotrebna komplikacija.

Što ne napraviš web aplikaciju za registraciju?

 
Odgovor na temu

dogriz
Sombor

Član broj: 29744
Poruke: 259
*.dynamic.sbb.rs.

Sajt: dogriz.blogspot.com


+6 Profil

icon Re: Delphi - Aktivacija softvera email-om22.11.2016. u 16:04 - pre 89 meseci
Napisao sam ti jedan jednostavan primer i za GET i za POST varijantu, pa upotrebi ako ti bude korisno.
PHP skripta izgleda ovako (nazvao sam je reg.php):
Code (php):
<?php
  if($_POST['REGISTARSKI_BROJ'] == 12345678) {
    echo "Cestitamo, registarski broj {$_POST['REGISTARSKI_BROJ']} je ispravan!";
  } elseif($_GET['REGISTARSKI_BROJ'] == 12345678) {
    echo "Cestitamo, registarski broj {$_GET['REGISTARSKI_BROJ']} je ispravan!";
  } else {
    echo "Nece moci";
  }
?>


Program u paskalu (Lazarus) sa korišćenjem synapse httpsend biblioteke:
Code (delphi):
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    btnGet: TButton;
    btnPost: TButton;
    EditRegistarskiBroj: TEdit;
    Label1: TLabel;
    MemoOdgovor: TMemo;
    procedure btnGetClick(Sender: TObject);
    procedure btnPostClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  httpsend;

{$R *.lfm}

{ TForm1 }

procedure TForm1.btnGetClick(Sender: TObject);
var
  s: TStrings;
begin
  s := TStringList.Create;
  HttpGetText('localhost/reg.php?REGISTARSKI_BROJ=' + EditRegistarskiBroj.Text, s);
  MemoOdgovor.Append('Odgovor (GET): ' +  s.Text);
  s.Free;
end;

procedure TForm1.btnPostClick(Sender: TObject);
var
  HTTP: THTTPSend;
  Data: TStringStream;
  Result: Boolean;
begin
  Data := TStringStream.Create('REGISTARSKI_BROJ=' + EditRegistarskiBroj.Text);
  HTTP := THTTPSend.Create;
  try
    HTTP.Document.CopyFrom(Data, 0);
    HTTP.MimeType := 'application/x-www-form-urlencoded';
    Result := HTTP.HTTPMethod('POST', 'localhost/reg.php');
    Data.Size := 0;
    if Result then
      begin
        Data.Seek(0, soFromBeginning);
        Data.CopyFrom(HTTP.Document, 0);
        MemoOdgovor.Append('Odgovor (POST): ' + Data.DataString);
      end;
  finally
    Data.Free;
    HTTP.Free;
  end;
end;

end.
 
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Delphi - Aktivacija softvera email-om

[ Pregleda: 1648 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.