1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| //---------------------------------------------------------------------------
#ifndef WebH
#define WebH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include "SHDocVw_OCX.h"
#include <OleCtrls.hpp>
#include <IdAntiFreeze.hpp>
#include <IdAntiFreezeBase.hpp>
#include <IdBaseComponent.hpp>
#include <SHDocVw.hpp>
//---------------------------------------------------------------------------
class TWebDragForm : public TForm
{
__published: // Composants gérés par l'EDI
TTimer *TimerWeb;
void __fastcall TimerWebTimer(TObject *Sender);
private: // Déclarations de l'utilisateur
public: // Déclarations de l'utilisateur
__fastcall TWebDragForm(TComponent* Owner);
int __fastcall TestUrl(AnsiString Url); // retourne le temps en secondes
void __fastcall MyCppDocumentComplete(TObject* Sender, LPDISPATCH pDisp, tagVARIANT *URL);
void __fastcall MyCppNavigateComplete2(TObject* Sender, LPDISPATCH pDisp, tagVARIANT *URL);
void __fastcall MyCppNavigateError(TObject *Sender,
LPDISPATCH pDisp, tagVARIANT *URL, tagVARIANT *Frame, tagVARIANT *StatusCode,
VARIANT_BOOL *Cancel);
void __fastcall MyCppNavigateNewWindow2(TObject *Sender,
LPDISPATCH *ppDisp, VARIANT_BOOL *Cancel);
void __fastcall MyCppProgressChange(TObject *Sender,
long Progress, long ProgressMax);
};
//---------------------------------------------------------------------------
extern PACKAGE TWebDragForm *WebDragForm;
//---------------------------------------------------------------------------
#endif |
Partager