| 12
 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