FreeLiveNet

When you finish a website, or a project, you would like to get the feedback and to find the bugs you might have on your website as soon as possible.

There are some options to use:

1- Asking your users to send you email with screenshots.
2- Use online bug reporting tools.
3- Setup a bug reporting server and integrate it with your website or project.

The first option is the one usually people use, but the main problem with this solution is tracking the bugs is almost impossible, and the one who reported the bug will not be able to follow that.

Second solution is very good, but there is one problem that these system are built for testers and usually those who have IT background and understand how to report and do the testing, which is not good for normal users which is almost the case.

The third solution seems to be the best solution as you can configure that to suit you. But  setup and installing that system usually it takes more than the time you spent on your project.

There is also a very good and easy solution that you can use this website called TellMeBug which is designed for normal people to report bugs very easy, as they send email, you can add your project there and make it public, or private, or public with limited access,  depends on your project and add the project icon to your website. When your user clicks on that icon, it will come to your project on tellmebg and they can report the bug.

You will see the bug and you can assign it to your team member to work on that and update bug status.

This is a simple program with Deplhi 2007,

you can download the exe file from (Download FTPUpload.exe)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    IdFTP1: TIdFTP;
    btnAdd: TBitBtn;
    Label1: TLabel;
    ListBox1: TListBox;
    Label2: TLabel;
    txtUsername: TEdit;
    txtPassword: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    btnStart: TButton;
    lblStatus: TLabel;
    txtServer: TEdit;
    Label5: TLabel;
    txtLogs: TMemo;
    OpenDialog1: TOpenDialog;
    ProgressBar1: TProgressBar;
    btnDelete: TBitBtn;
    Label6: TLabel;
    procedure btnStartClick(Sender: TObject);
    procedure IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
      const AStatusText: string);
    procedure IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
      AWorkCount: Integer);
    procedure btnAddClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnAddClick(Sender: TObject);
var
  i: Integer;
begin
  if (OpenDialog1.Execute) then
  begin
    for i := 0 to ListBox1.Count - 1 do
      if(ListBox1.Items.Strings[i] = OpenDialog1.FileName) then ListBox1.Items.Delete(i);
    ListBox1.Items.Append(OpenDialog1.FileName);
  end;
  btnStart.Enabled := ListBox1.Count > 0;
end;

procedure TForm1.btnDeleteClick(Sender: TObject);
begin
  ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

procedure TForm1.btnStartClick(Sender: TObject);
var
  F : TFileStream;
  i : Integer;
  S : String;
begin
  IdFTP1.Host := txtServer.Text;
  IdFTP1.Username := txtUsername.Text;
  IdFTP1.Password := txtPassword.Text;
  btnStart.Enabled := False;
  try
    IdFTP1.Connect;
    IdFTP1.Login;
    for i:= 0 to ListBox1.Items.Count-1 do
    begin
      S := ListBox1.Items.Strings[i];
      if(FileExists(S)) then
      begin
        try
          lblStatus.Caption := 'Uploading '+ ExtractFileName(S);
          F := TFileStream.Create(S,fmOpenRead);
          ProgressBar1.Max := F.Size;
          ListBox1.Items.Strings[i] := '(Uploading) '+ S;
          IdFTP1.Put(F,ExtractFileName(S));
          ListBox1.Items.Strings[i] := '(Uploaded) '+ S;
        finally
          lblStatus.Caption := 'Upload completed';
          F.Free;
        end;
      end
      else
      begin
        ListBox1.Items.Strings[i] := '(Not found) '+ S;
      end;
    end;
  except on E:Exception do
    MessageDlg(e.Message,mtError,[mbOK],0);
  end;
  btnStart.Enabled := True;
end;

procedure TForm1.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);
begin
  txtLogs.Lines.Append(DateTimeToStr(Now)+' : ' + AStatusText);
end;

procedure TForm1.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
  txtLogs.Lines.Append(DateTimeToStr(Now)+' : '+IntToStr(AWorkCount));
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  btnDelete.Enabled := (ListBox1.ItemIndex > -1);
  btnStart.Enabled := ListBox1.Count > 0;
end;

end.

If you have two emails and you would like to check both emails in one email, here is the steps you need to follow:

In this article we assume you have one personal email and one work email, and we assume both are in gmail.

You need to login to your work email and go to mail setting

And click on Forwarding and POP/IMAP tab

There at the top you will see a section called Forwarding, click on button “Add a forwarding address”

Then you need to type your personal email address, which you would like all emails be forwarded to. After that you will receive a confirmation email on your personal email which you have to confirm,

After that you need to come back to this page, and enable that forward, as by default it will be disabled.

Once you have successfully activated your email forwarding, you need to login to your personal email and go to mail setting.

This time you need to click on a section called Accounts and Imports

A section called Send mail as: and click on  the link “Add another email address you own”

Then you will see a new window

In this new window you type your name and your work email address,
Also uncheck that checkbox, and click on “Next Step ”

Then on the next step choose the first option, and click “Next Step”, on the next step click on send verification, which you need to confirm that,

After you confirm that, you need to come back to mail setting in your personal email, where you setup the Send mail as,

And in section saying “Send mail as:” you need to make sure your work email that you set, is activated, and also from two radio button at the bottom you need to choose the top one:

“Reply from the same address message was sent to”

This option is when you replying to your work emails, from your personal email, they appear to be sent from your work email.

You may need to check this, and make sure it is working fine,

This is the quick way to setup, but there are some more professional way to do that, which I might explain that in an other article.

I was trying to import one excel file (2010 version) into mssql server with SQL Server Management Studio and keep getting that error.

Solution which solved my problem:
I found this website http://blogs.msdn.com/b/farukcelik/archive/2010/06/04/accessing-excel-files-on-a-x64-machine.aspx  and followed the steps and didn’t work.

What I did was I installed Microsoft Access Database Engine 2010 Redistributable and still was getting the same error.

After that I saved that excel file as Excel 203 (with extension .xls) and now it worked fine.