reading image from clipboard slow

[BubikolRamios]

I made as simple prog in vb6 which accepts clipboard image and shows it in my prog in image component.
Rewrote it in Lazarus.

While CTRL+V has instant effect in VB, only the code belov in lazarus takes 2-3 seconds.
That is, it takes ~ 5 s from CTRL+V to point when image shows.

Win 7 64 bit.

The file copyed from clipbrdi is originaly 12 MB, nikon NEF.

Any suggestion ?

Code: [Select]

    if Clipboard.HasFormat(PredefinedClipboardFormat(pcfDelphiBitmap)) then
    bmp.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfDelphiBitmap))

    else  if Clipboard.HasFormat(PredefinedClipboardFormat(pcfBitmap)) then
    bmp.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfBitmap));


[User137]

Just something you can try... Make sure that -gv (valgrind) is disabled in Linking tab in Project options. If i recall, that made my 3D-models load ~100 times slower, from 0.1 second to 10 seconds.

[BubikolRamios]

Thanks.

That was default false, so it does not influence a thing.

Any other idea ?

[BubikolRamios]

Anyway, fishing in dark. should that work ?:

Code: [Select]


    if Clipboard.HasFormat(PredefinedClipboardFormat(pcfBitmap)) then
    begin
       bmp.Assign(Clipboard);
    end;   


it dies in last line here in TFPImageBitmap  with message: Wrong image format

Code: [Select]

procedure TFPImageBitmap.ReadStream(AStream: TMemoryStream; ASize: Longint);
var
  SCB: TSharedCustomBitmap;
  IntfImg: TLazIntfImage;
  ImgReader: TFPCustomImageReader;
  LazReader: ILazImageReader;
begin
  IntfImg := nil;
  ImgReader := nil;
  try
    // read image
    ImgReader := GetReaderClass.Create;
    ImgReader.OnProgress := Self.OnProgress;
    IntfImg := TLazIntfImage.Create(0,0,[]);
    InitializeReader(IntfImg, ImgReader);
    if Supports(ImgReader, ILazImageReader, LazReader)
    then LazReader.UpdateDescription := True
    else IntfImg.DataDescription := GetDescriptionFromDevice(0, 0, 0); // fallback to default
    ImgReader.ImageRead(AStream, IntfImg);
    ...