I don't know what that has to do with the article you're commenting on but TImage and TPngImage support transparent PNGs just fine.

]]> http://melander.dk/articles/alphasplash2/#comment-619 MJ Thu, 11 Mar 2010 13:05:48 +0000 http://melander.dk/articles/alphasplash2/#comment-619 Hello, I haven't work with PNG in Delphi, so I'm looking for advices about next problem: I have to show picture over picture, but I can't manage with the transparent spots, so the below one to be visible where the above should be transparent. I tried with Image component and pnglibrary, but still have no solution. Hello, I haven't work with PNG in Delphi, so I'm looking for advices about next problem: I have to show picture over picture, but I can't manage with the transparent spots, so the below one to be visible where the above should be transparent. I tried with Image component and pnglibrary, but still have no solution.

To my knowledge Outlook does not support the FileNameMap clipboard format which is what the MappedNames property interfaces to.
In order for MappedNames to have any effect the drop target must support the FileNameMap clipboard format. Explorer is the only application I know of that does so.

The VirtualFile and VirtualFileStream examples demonstrates how to do it.

If the need is to save the entire message as a "message.msg", I think the best way is to use TVirtualFileStreamDataFormat directly and catch the entire stream from the Drag Source or Clipboard (sorry If I misunderstood the question).

You need to get the IStorage interface from the TOutlookDataFormat object. Check the OutlookDemo source again.

in Simple terms I have modified your code as below:

procedure TfrmUploadmgr.DropEmptyTarget1Drop(Sender: TObject;
  ShiftState: TShiftState; APoint: TPoint; var Effect: Integer);
var
  OutlookDataFormat: TOutlookDataFormat;
  i: integer;
  Item: TListItem;
  AMessage: IMessage;
  BMessage: TMessage;
begin
  // Check if we have a data format and if so...
  if (DataFormatAdapterOutlook.DataFormat <> nil) then
  begin
    // ...Extract the dropped data from it.
    OutlookDataFormat := DataFormatAdapterOutlook.DataFormat as TOutlookDataFormat;
    CleanUp;
    
    OutlookDataFormat.Messages.LockSession;
    FHasMessageSession := True;
    
    // Get all the dropped messages
    for i := 0 to OutlookDataFormat.Messages.Count-1 do
    begin
      // Get an IMessage interface
      if (Supports(OutlookDataFormat.Messages[i], IMessage, AMessage)) then
      begin
        try
          FCurrentMessage := TMessage.Create(AMessage, nil);
          ActionMessageSaveExecute(Sender);
        finally
          AMessage := nil;
        end;
      end;
    end;
    FHasMessageSession := False;
  end;
end;

When I call ActionMessageSaveExecute(Sender); I get an Exception violation in the following line of code

FStorage.CopyTo(0, nil, nil, Storage);

I am guessing it has to do with how I am assigning FCurrentMessage.  Any documentation or just help you could offer would be awesome

John,

The PR_MESSAGE_DELIVERY_TIME property works for me:

var
  SystemTime: TSystemTime;
...
if (Succeeded(HrGetOneProp(AMessage.Msg, PR_MESSAGE_DELIVERY_TIME, Prop))) then
  try
    // Convert from file time to system time
    if FileTimeToSystemTime(Windows.TFileTime(Prop.Value.ft), SystemTime) then
      // Convert from system time to TDateTime
      Value := DateTimeToStr(SystemTimeToDateTime(SystemTime))
    else
      Value := '';
  finally
    MAPIFreeBuffer(Prop);
  end
else
  Value := '';

Both the PR_ENTRYID and PR_LONGTERM_ENTRYID_FROM_TABLE properties fails with the error MAPI_E_NOT_FOUND. I have no explanation for this and I have not been able to Google any clues. I suggest you ask for help in one of the places I linked to above. Let me know what you find out.