Category: Soft/Programming

Added the export from Open Office spreadsheets (.ods-files).
New build uploaded to site for downloading

Released today. Just added all information on html-pages and uploaded to site

In trial a few files (10) from directory processed only and “unregistered” text placed in center of any saved image
The registered version will work without any limitations, of course

Русинович выпустил утилиту для виртуальных десктопов:

http://technet.microsoft.com/en-us/sysinternals/cc817881.aspx

Очередная покупка тулзы от их сотрудника.

С одной стороны хорошо, что один сотрудник рекомендует тулзу своему соседу, т.е. он доволен покупкой и функционала ему хватает.
С другой стороны, раз тулза нужна многим (и не только в одном филиале), то почему бы компании не купить пакет лицензий и раздать своим сотрудникам? И им удобней, и мне приятней.

PS: кстати такая же ситуация с Ernst&Young – тоже разные сотрудники из разных филиалов (что удивляет даже из Литвы и Чехии)  берут себе лицензии, а компания не выбивает скидки за опт.

In last days I worked with IStorage interface. For my task I needed the function to save the IStorage into file and/or stream and later to load from file/stream into IStorage.

I wrote the next useful functions:

  procedure CreateOLEDoc(const AFileName: WideString; AStorage: IStorage);
  var
    hr: Integer;
    NewStorage: IStorage;
  begin
    hr := StgCreateDocfile(PWideChar(AFileName), STGM_DIRECT or STGM_READWRITE or STGM_CREATE or
                           STGM_SHARE_EXCLUSIVE, 0, NewStorage);
    if (hr = S_OK) then
    begin
      AStorage.CopyTo(0, nil, nil, NewStorage);
      NewStorage.Commit(STGC_DEFAULT);
      NewStorage := nil
    end
  end;

  procedure WriteStorageToStream(AStorage: IStorage; AStream: TStream);
  var
    NewStorage: IStorage;

    LockBytes: ILockBytes;
    HGlob: HGLOBAL;
    intfStream, myStream: IStream;
    oldStatstg: TStatStg;
    cbRead, cbWritten: Comp;
  begin
    HGlob := GlobalAlloc(GMEM_MOVEABLE, 0);
    try
      OleCheck(CreateILockBytesOnHGlobal(HGlob, False, LockBytes));
      OleCheck(StgCreateDocfileOnILockBytes(LockBytes, STGM_DIRECT or STGM_READWRITE or STGM_CREATE or
                           STGM_SHARE_EXCLUSIVE, 0, NewStorage));
      OleCheck(AStorage.CopyTo(0, nil, nil, NewStorage));
      NewStorage.Commit(STGC_DEFAULT);
      OleCheck(CreateStreamOnHGlobal(HGlob, True, intfStream));

      myStream  := TStreamAdapter.Create(AStream);
      try
        OleCheck(intfStream.Stat(oldStatstg, 1));
        OleCheck(intfStream.Seek(0, 0, cbWritten));

        OleCheck(intfStream.CopyTo(myStream, oldStatstg.cbSize, cbRead, cbWritten));
      finally
        myStream  := nil;
        intfStream := nil;
      end;
    finally
      NewStorage := nil;
      GlobalFree(HGlob);
    end;

    AStream.Position := 0;
  end;

Today I decided to implement the new feature for all our viewers – to open the file which dropped from Windows Explorer
When I opened the sources to implement this feature, I found that this feature is already implemented:-)

Just forgot to include in history.

Fix:
http://qc.codegear.com/wc/qcmain.aspx?d=37403

In last time the Electronic Books are very popular. Sony Reader, IBook Reader, BeBook, lBook etc

As result, the new xml-based format for e-books was developed – FictionBook (.fb2):
http://en.wikipedia.org/wiki/FictionBook

All these hardware units allow to read the e-books in this format

Today I added the new component for our SMWord suite for Delphi/C++Builder – TFictionBook
This component allow to read any .fb2-file and extract the plain text.
Also you may convert the text from Fiction Book into rtf (richtext) or html

So if you want to develop the new reader or just want to add a possibility to search the information inside .fb2-files, you are welcome to order our SMWord suite.

Now there the next formats supported:

• .doc files (all versions for MS Word) – TMSWordDocument component
• .docx files (MS Word 2007) – TMSWordXDocument component
• .wpd (all versions for WordPerfect documents from Corel Office) – TWordPerfectFile component
• .wri (MS Writer) – TWRIFile component
• .odt (text documents from Open Office) – TOpenOfficeTextDocument component
• .ods (spreadsheets from Open Office) – TOpenOfficeSpreadsheet component
• .odp (presentations from Open Office) – TOpenOfficePresentation component
• .fb2 (FictionBook, e-book) – TFictionBook component

In Saturday I buyed the new hard disk (WD2500BEVE) for my laptop (HP xt6200)
The new disk is not initialized by default, so:
– I plugged this unit via USB (Transcend 2,5′ IDE HDD Enclosure for USB 2.0 Port)
– rebooted
– opened the Control Panel\Administration\Disk Management
– initialized the disk
– created the main active partion (100Gb), new logical drive and formatted (NTFS)
– created additional partion (rest 150Gb), two new logical drives (75Gb+75Gb) and formatted each (NTFS)