Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Curiosidad Encontrada > TPhotoUploadCtl (https://www.clubdelphi.com/foros/showthread.php?t=55369)

MaMu 15-04-2008 09:41:55

Curiosidad Encontrada > TPhotoUploadCtl
 
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.


La franja horaria es GMT +2. Ahora son las 10:19:28.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi