Results 1 to 4 of 4

Thread: Arghh.

  1. #1
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Arghh.

    I keep getting these errors with my form.







    SCAR Code:
    Program MyScript;
     
     
    var
     frmDesign : TForm;
     GroupBox1 : TGroupBox;
     Label1 : TLabel;
     Label3 : TLabel;
     Edit1 : TEdit;
     AuthPassword : TEdit;
     Rememberme : TCheckBox;
     Login : TButton;
     GroupBox2 : TGroupBox;
     WhatsGoingOn : TMemo;
     YourAuthPass : string;
     YourAuthUser : string;
     PlayerForm : TForm;
     GroupBox3 : TGroupBox;
     UserNameLabel : TLabel;
     Label2 : TLabel;
     Label5 : TLabel;
     UserNameEdit : TEdit;
     Passwordedit : TEdit;
     ActiveComboBox : TComboBox;
     GroupBox4 : TGroupBox;
     Username2 : TLabel;
     Password2 : TLabel;
     Active2 : TLabel;
     Edit9 : TEdit;
     Passwordbox2 : TEdit;
     True2 : TComboBox;
     Usernamebox2 : TEdit;
     
    function Authenticate: Boolean; Forward;
     
    procedure StartClick(sender: TObject);
    begin
      YourAuthUser := (Edit1.Text);
      YourAuthPass := (AuthPassword.Text);
      if RememberMe.Checked then
      begin
        SaveSetting('MagicCutter', 'AuthUser', Edit1.Text);
        SaveSetting('MagicCutter', 'AuthPass', AuthPassword.Text);
        SaveSetting('MagicCutter', 'Remember', 'Yes');
      end;
      if Authenticate then
      frmDesign.ModalResult:= mrOk;
      if not Authenticate then
      Exit;
      FreeForm(frmDesign);
    end;
     
     
    procedure PlayerFormStuff;
    begin
      PlayerForm := CreateForm;
      PlayerForm.Left := 250;
      PlayerForm.Top := 114;
      PlayerForm.Width := 465;
      PlayerForm.Height := 241;
      PlayerForm.Caption := 'Player Setup';
      PlayerForm.Color := clBtnFace;
      PlayerForm.Font.Color := clWindowText;
      PlayerForm.Font.Height := -11;
      PlayerForm.Font.Name := 'MS Sans Serif';
      PlayerForm.Font.Style := [];
      PlayerForm.Visible := False;
      PlayerForm.PixelsPerInch := 96;
      GroupBox3 := TGroupBox.Create(PlayerForm);
      GroupBox3.Parent := PlayerForm;
      GroupBox3.Left := 16;
      GroupBox3.Top := 16;
      GroupBox3.Width := 201;
      GroupBox3.Height := 177;
      GroupBox3.Caption := 'Player One';
      GroupBox3.TabOrder := 0;
      UserNameLabel := TLabel.Create(GroupBox1);
      UserNameLabel.Parent := GroupBox1;
      UserNameLabel.Left := 20;
      UserNameLabel.Top := 48;
      UserNameLabel.Width := 53;
      UserNameLabel.Height := 13;
      UserNameLabel.Caption := 'User Name';
      UserNameLabel.Font.Color := clWindowText;
      UserNameLabel.Font.Height := -11;
      UserNameLabel.Font.Name := 'MS Sans Serif';
      UserNameLabel.Font.Style := [];
      UserNameLabel.ParentFont := False;
      Label2 := TLabel.Create(GroupBox1);
      Label2.Parent := GroupBox1;
      Label2.Left := 20;
      Label2.Top := 88;
      Label2.Width := 46;
      Label2.Height := 13;
      Label2.Caption := 'Password';
      Label5 := TLabel.Create(GroupBox1);
      Label5.Parent := GroupBox1;
      Label5.Left := 20;
      Label5.Top := 128;
      Label5.Width := 36;
      Label5.Height := 13;
      Label5.Caption := 'Active?';
      UserNameEdit := TEdit.Create(GroupBox1);
      UserNameEdit.Parent := GroupBox1;
      UserNameEdit.Left := 88;
      UserNameEdit.Top := 40;
      UserNameEdit.Width := 97;
      UserNameEdit.Height := 21;
      UserNameEdit.TabOrder := 0;
      Passwordedit := TEdit.Create(GroupBox1);
      Passwordedit.Parent := GroupBox1;
      Passwordedit.Left := 88;
      Passwordedit.Top := 80;
      Passwordedit.Width := 97;
      Passwordedit.Height := 21;
      Passwordedit.TabOrder := 1;
      ActiveComboBox := TComboBox.Create(GroupBox1);
      ActiveComboBox.Parent := GroupBox1;
      ActiveComboBox.Left := 88;
      ActiveComboBox.Top := 120;
      ActiveComboBox.Width := 97;
      ActiveComboBox.Height := 21;
      ActiveComboBox.ItemHeight := 13;
      ActiveComboBox.TabOrder := 2;
      ActiveComboBox.Text := 'True';
      GroupBox4 := TGroupBox.Create(PlayerForm);
      GroupBox4.Parent := PlayerForm;
      GroupBox4.Left := 240;
      GroupBox4.Top := 16;
      GroupBox4.Width := 201;
      GroupBox4.Height := 177;
      GroupBox4.Caption := 'Player Two';
      GroupBox4.TabOrder := 1;
      Username2 := TLabel.Create(GroupBox2);
      Username2.Parent := GroupBox2;
      Username2.Left := 16;
      Username2.Top := 48;
      Username2.Width := 53;
      Username2.Height := 13;
      Username2.Caption := 'User Name';
      Password2 := TLabel.Create(GroupBox2);
      Password2.Parent := GroupBox2;
      Password2.Left := 16;
      Password2.Top := 88;
      Password2.Width := 46;
      Password2.Height := 13;
      Password2.Caption := 'Password';
      Active2 := TLabel.Create(GroupBox2);
      Active2.Parent := GroupBox2;
      Active2.Left := 16;
      Active2.Top := 128;
      Active2.Width := 36;
      Active2.Height := 13;
      Active2.Caption := 'Active?';
      Edit9 := TEdit.Create(GroupBox2);
      Edit9.Parent := GroupBox2;
      Edit9.Left := 96;
      Edit9.Top := 32;
      Edit9.Width := 1;
      Edit9.Height := 21;
      Edit9.TabOrder := 0;
      Edit9.Text := 'Edit1';
      Passwordbox2 := TEdit.Create(GroupBox2);
      Passwordbox2.Parent := GroupBox2;
      Passwordbox2.Left := 88;
      Passwordbox2.Top := 80;
      Passwordbox2.Width := 97;
      Passwordbox2.Height := 21;
      Passwordbox2.TabOrder := 1;
    True2 := TComboBox.Create(GroupBox2);
    True2.Parent := GroupBox2;
    True2.Left := 88;
    True2.Top := 120;
    True2.Width := 81;
    True2.Height := 21;
    True2.ItemHeight := 13;
    True2.TabOrder := 2;
    True2.Text := 'True';
    Usernamebox2 := TEdit.Create(GroupBox2);
    Usernamebox2.Parent := GroupBox2;
    Usernamebox2.Left := 88;
    Usernamebox2.Top := 40;
    Usernamebox2.Width := 97;
    Usernamebox2.Height := 21;
    Usernamebox2.TabOrder := 3;
    end;
     
    procedure ShowPlayerForm;
    var
     v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('PlayerFormStuff', v);
    end;
     
    procedure ShowPlayerformModal;
    begin
      PlayerForm.ShowModal;
    end;
     
    procedure SafeShowModalPlayerForm;
    var
     v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowPlayerformModal', v);
    end;
     
    procedure FormStuff;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 259;
    frmDesign.Top := 128;
    frmDesign.Width := 449;
    frmDesign.Height := 297;
    frmDesign.Caption := 'Skilld Magic Tree Chopper';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 96;
    GroupBox1 := TGroupBox.Create(frmDesign);
    GroupBox1.Parent := frmDesign;
    GroupBox1.Left := 16;
    GroupBox1.Top := 32;
    GroupBox1.Width := 193;
    GroupBox1.Height := 201;
    GroupBox1.Caption := 'Authentification';
    GroupBox1.TabOrder := 0;
    Label1 := TLabel.Create(GroupBox1);
    Label1.Parent := GroupBox1;
    Label1.Left := 24;
    Label1.Top := 48;
    Label1.Width := 48;
    Label1.Height := 13;
    Label1.Caption := 'Username';
    Label1.Font.Color := clWindowText;
    Label1.Font.Height := -8;
    Label1.Font.Name := 'MS Sans Serif';
    Label1.Font.Style := [];
    Label1.ParentFont := False;
    Label3 := TLabel.Create(GroupBox1);
    Label3.Parent := GroupBox1;
    Label3.Left := 24;
    Label3.Top := 80;
    Label3.Width := 46;
    Label3.Height := 13;
    Label3.Caption := 'Password';
    Edit1 := TEdit.Create(GroupBox1);
    Edit1.Parent := GroupBox1;
    Edit1.Left := 96;
    Edit1.Top := 48;
    Edit1.Width := 81;
    Edit1.Height := 21;
    Edit1.TabOrder := 0;
    AuthPassword := TEdit.Create(GroupBox1);
    AuthPassword.Parent := GroupBox1;
    AuthPassword.Left := 96;
    AuthPassword.Top := 80;
    AuthPassword.Width := 81;
    AuthPassword.Height := 21;
    AuthPassword.TabOrder := 1;
    AuthPassword.PasswordChar := '*';
    Rememberme := TCheckBox.Create(GroupBox1);
    Rememberme.Parent := GroupBox1;
    Rememberme.Left := 24;
    Rememberme.Top := 112;
    Rememberme.Width := 97;
    Rememberme.Height := 33;
    Rememberme.Caption := 'Remember Me?';
    Rememberme.TabOrder := 2;
    Login := TButton.Create(GroupBox1);
    Login.Parent := GroupBox1;
    Login.Left := 56;
    Login.Top := 152;
    Login.Width := 81;
    Login.Height := 25;
    Login.Caption := 'Login';
    Login.TabOrder := 3;
    Login.OnClick := @StartClick;
    GroupBox2 := TGroupBox.Create(frmDesign);
    GroupBox2.Parent := frmDesign;
    GroupBox2.Left := 224;
    GroupBox2.Top := 32;
    GroupBox2.Width := 193;
    GroupBox2.Height := 201;
    GroupBox2.Caption := 'What'#39's Going On';
    GroupBox2.TabOrder := 1;
    WhatsGoingOn := TMemo.Create(GroupBox2);
    WhatsGoingOn.Parent := GroupBox2;
    WhatsGoingOn.Left := 16;
    WhatsGoingOn.Top := 24;
    WhatsGoingOn.Width := 161;
    WhatsGoingOn.Height := 161;
    WhatsGoingOn.Lines.Add('Enter Your Auth Username and Password Please');
    WhatsGoingOn.TabOrder := 0;
    end;
     
    procedure ShowForm;
    var
     v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('FormStuff', v);
    end;
     
    procedure ShowformModal;
    begin
      frmDesign.ShowModal;
    end;
     
    procedure SafeShowModal;
    var
     v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowformModal', v);
    end;
     
    function Authenticate: Boolean;
    var
      AuthUser : string;
      AuthPass : string;
    begin
      AuthUser := 'test';
      AuthPass := 'test';
      if (AuthPass = YourAuthPass) and (AuthUser = YourAuthUser) then
      begin
        WhatsGoingOn.Clear;
        WhatsGoingOn.Lines.Add('Thank You For Buying');
        Result := True;
      end else
      begin
        WhatsGoingOn.Clear;
        WhatsGoingOn.Lines.Add('Your Username or Password were incorrect, Please Try Again.');
      end;
    end;
     
    begin
      ShowForm;
      If LoadSetting('MagicCutter', 'Remember') = 'Yes' then
      begin
        Edit1.Text := LoadSetting('MagicCutter', 'AuthUser');
        AuthPassword.Text := LoadSetting('MagicCutter', 'AuthPass');
      end;
      SafeShowModal;
      ShowPlayerForm;
      SafeShowModalPlayerForm;
    end.

  2. #2
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    skilld, I just tested that again today and it works...I'm working on making that better right now. So don't use it for now.

  3. #3
    Join Date
    Mar 2008
    Location
    USA
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    does it have to do somethin
    g with your firewall?

  4. #4
    Join Date
    Mar 2007
    Location
    Canada
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It's your Admin your useing Vista by the looks of it try running scar as admin

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •