26 Topic by jeffmtl@hotmail.com

(2 replies, posted in General)

Hi everybody,

I've been trying to get the GetDir or GetCurrentDir to work and have followed some examples from delphibasics.co.uk but with no success. Is it possible that these commands are not available in the vocabulary of My Visual Database ?

Example

var
  dir : string;

begin
  // Get the current directory
  dir := GetCurrentDir;
  ShowMessage('Current directory = '+dir);
end;


Show full unit code
   Current directory = C:\Program Files\myproject\images\

Thanks for any help you can give me.

Go to forum: General

27 Reply by jeffmtl@hotmail.com

(2 replies, posted in Script)

It is possible to use a camera but you will not be able to use the traditional barcodes, as it would require a laser to get exact bar code proportions.  1D barcodes are not so much of an image then an algorithm of proportions between black and white lines with Ratios. You can get away with using 3 of 9 barcodes but the precision drops as there is no check digit within the barcode, leading to false readings and errors in the numbering.  1D scanners or Laser scanners are still available that are not very expensive and are plug and play with USB connections.

2D barcodes (QR) is a whole new game, but again you would be best to get a IMAGER scanner that also plugs into your SUB.

Go to forum: Script

28 Topic by jeffmtl@hotmail.com

(1 replies, posted in Script)

Hi Everybody
I know my problem is probably very easy. Im not a programmer but somebody that is trying to learn with My Visual Database.

Ive been trying to work a IF THEN ELSE, and before trying to post here, i googled and googled and googled, but cant find out what I am doing wrong.

Im probably doing multiple things wrong, but I cant seem to figure out this simple problem.

Here is the code

procedure fmClientInfo_Button17_OnClick (Sender: TObject; var Cancel: boolean);  // shortcut button with a path on hard drive
var
       strLink : string;


begin

        strLink := fmMyform.cfDriveLink.text;
        if (strLink = '') then ;
            //begin
                ShowMessage('No link');
           // end;
        else
           //  begin
                OpenURL(fmMyform.cfDriveLink.text);
           //  end;

end;

Any help would be great and any reference books that you recommend (delph ? Turbo Pascal ?)

Go to forum: Script