ABADev blog

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;