Matrix user forums

Code: Select all

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, IdException, ExtCtrls;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    ListBox1: TListBox;
    Edit3: TEdit;
    ListBox2: TListBox;
    Timer1: TTimer;
    RadioGroup1: TRadioGroup;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ListBox2Click(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
responseStream: TFileStream;
ausgabe:String;
actually_version : String;

begin
if ListBox1.ItemIndex = -1 then
begin
timer1.Enabled := false;
CheckBox1.Checked := false;
ShowMessage('Which Version i must check for you?');
exit;
end;

if ListBox2.Count = 20 then ListBox2.Clear;
Label3.Caption:= 'Items: ' + IntToStr(ListBox2.Count+1);

actually_version := edit2.Text + ListBox1.Items[Listbox1.itemindex] + Edit3.Text;

  // responseStream := TFileStream.Create(Edit1.Text,fmCreate);
  try
    IdHTTP1.Head(actually_version);
  except
    on E: EidprotocolReplyError do
    begin
    // case EIdProtocolReplyError.ReplyErrorCode
    // Caption := 'Not found';
    // ShowMessage('Fehler: ' + intToStr(EIdProtocolReplyError.ReplyErrorCode));
    ausgabe := e.Message+ 'ReplyErrorCode: ' + IntToStr(e.ReplyErrorCode);
    // ShowMessage(e.Message+ 'ReplyErrorCode: ' + IntToStr(e.ReplyErrorCode));
    // ShowMessage(ausgabe);
     case  e.ReplyErrorCode of
     200: ausgabe := ListBox1.Items[ListBox1.itemindex] + ' online E availabel';
     302: ausgabe := ListBox1.Items[ListBox1.itemindex] + ' online moved';
     404: ausgabe := ListBox1.Items[ListBox1.itemindex] + ' not found';
     end; // case
     ListBox2.Items.Add(ausgabe);


   end
   //on EIdHTTPProtocolException do
   //    ausgabe:='Fehler!'+#13#10 + IdHTTP1.ResponseText;
  //   [color=#ff0000]// die anderen Fehler
  //   on E: Exception do
  //     ausgabe:='Auch ein Fehler (' + E.ClassName + ')!'+#13#10 + E.Message;[/color]
  // caption := 'sorry';
  end;//try


    if (Length(ausgabe)<1) then
    begin
    // ausgabe:='OK, alles klar'+#13#10 + IdHTTP1.ResponseText;
    // ShowMessage(ausgabe);
    ausgabe := ListBox1.Items[ListBox1.itemindex] + ' online availabel';
    ListBox2.Items.Add(ausgabe);
    end
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Timer1.Interval := 1000 * 5;             // 5 sec =  1 sek * 5
1: Timer1.Interval := 1000 * 30;             // 30 sec =  1 sek * 30
2: Timer1.Interval := 1000 * 60 * 60;        // 1 hour =  1 sek * 60 * 60
3: Timer1.Interval := 1000 * 60 * 60 * 24 ;  // 1 day  =  1 sek * 60 * 60 * 24;
end

end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Timer1.Enabled := CheckBox1.Checked;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Click;
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
ListBox2.Clear;
label3.Caption := 'Items: 0';
end;

procedure TForm1.FormDblClick(Sender: TObject);
begin
close;
end;

end.