Urgando en mares de dll, encontré una muy interesante
C:\WINDOWS\Downloaded Program Files\MsnPUpld.dll
Importando el control desde Delphi, me encuentro con
MSNPHOTOUPLOADLib_TLB cuya clase es
TPhotoUploadCtl
Sinceramente quería compartirlo porque me pareción un bonito control para todos aquellos que estamos en el tema de upload de imagenes a servidores, sobre todo porque sirve para fines didácticos.
Algunas cosas interesantes...
Código Delphi
[-] procedure OnUploadBegin; dispid 1;
procedure OnCancel; dispid 2;
procedure OnFileUploaded(const strFilename: WideString); dispid 3;
procedure OnUploadComplete; dispid 4;
procedure OnHelpButton; dispid 5;
procedure OnInitialized; dispid 6;
procedure OnInitBegin; dispid 7;
Código Delphi
[-]
property PostURL: WideString read Get_PostURL write Set_PostURL;
property Resources: WideString read Get_Resources write Set_Resources;
property CommunityID: WideString read Get_CommunityID write Set_CommunityID;
property TopicID: WideString read Get_TopicID write Set_TopicID;
property MaxFileSize: Integer read Get_MaxFileSize write Set_MaxFileSize;
property DefaultPhotoSize: Integer read Get_DefaultPhotoSize write Set_DefaultPhotoSize;
property PhotoMode: Integer read Get_PhotoMode write Set_PhotoMode;
property DupFileList: WideString read Get_DupFileList write Set_DupFileList;
property SingleSelect: Integer read Get_SingleSelect write Set_SingleSelect;
property JpegQuality: SYSINT read Get_JpegQuality write Set_JpegQuality;
property ShowHiResOption: SYSINT read Get_ShowHiResOption write Set_ShowHiResOption;
Saludos.