Exemples pour coder avec Delphi Trucs et astuces Internet
Extraire les adresses email d'un fichier *.dbx d'outlook |
||||
unit ExtractEmailsFunc;interface uses Windows, SysUtils; procedure CheckEMail(FilePath: string);implementation var BufferSize: Integer; function Ver if yFile(strFileName: string): Integer; var ... | ||||
| Delphi - Trucs et astuces - Internet | le 28/04/2009 | vu 2055 fois | fobec | |
Webbrowser : tout sélectionner puis copier dans le presse-papier |
||||
uses ActiveX; procedure TForm1.Button1Click(Sender: TObject); begin webbrowser1.navigate('http://fobec.com'); end; procedure TForm1.Button2Click(Sender: TObject); var vInput,... | ||||
| Delphi - Trucs et astuces - Internet | le 28/04/2009 | vu 1708 fois | fobec | |
Décrypter la date de modification des Favoris |
||||
Des malades chez Microsoft !!!!Découper et retourner la chaîne contenant la date puis mouliner avec FileTimeToSystemTimeVoir code joint | ||||
| Delphi - Trucs et astuces - Internet | le 27/03/2009 | vu 1556 fois | olibul | |
Envoyer un formulaire avec le TWebBrowser |
||||
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; EncodedStr: string; Header: OleVariant; Post: OleVariant; begin EncodedStr := 'name=SwissDelphiCenter.ch&text=Test... | ||||
| Delphi - Trucs et astuces - Internet | le 25/01/2009 | vu 850 fois | SwissDelphiCenter | |
Vérifier si le système est connecté à Internet |
||||
Méthode n°1 uses StdCtrls,registry; Function IsConnected : Boolean; var reg : TRegistry; buff : dword; begin reg:= tregistry.Create ; Reg.RootKey:=HKey_local_machine; if ... | ||||
| Delphi - Trucs et astuces - Internet | le 28/08/2007 | vu 2277 fois | SwissDelphiCenter | |
Trouver le nom du fichier temporaire d'après une URL |
||||
uses WiniNet;// Get Cached File Path From URL function GetCachedFileFromURL(strUL: string; var strLocalFile: string): boolean; var lpEntryInfo: PInternetCacheEntryInfo; hCacheDir: LongWord; ... | ||||
| Delphi - Trucs et astuces - Internet | le 13/07/2006 | vu 1745 fois | Communauté Delphi | |
Charger un fichier sur Internet |
||||
uses WinInet;{$R *.DFM} function DownloadFileFromHTTP( const AURL: string; const ADestFileName: string): boolean; var hInet: HINTERNET; hFile: HINTERNET; localFile: file; buffer:... | ||||
| Delphi - Trucs et astuces - Internet | le 29/06/2006 | vu 1773 fois  |
Communauté Delphi | |
Ajouter du texte à la fin du document HTML dans un TWebBrowser |
||||
uses MSHTML; procedure TForm1.Button1Click(Sender: TObject); var Range: IHTMLTxtRange; begin Range := ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange; ... | ||||
| Delphi - Trucs et astuces - Internet | le 26/05/2006 | vu 1490 fois | SwissDelphiCenter | |
WebBrowser : erreur fatale avec certains jScript |
||||
Solutions:1. utiliser le TEmbeddedWB de www.euromind.com Fixer la propriété fpExceptions à false2. utiliser le TWebBrowser- Appeler la fonction dans OnCreate ou InitialisationSet8087CW($133F); | ||||
| Delphi - Trucs et astuces - Internet | le 06/05/2006 | vu 1156 fois | Communauté Delphi | |
Ajouter la page en cours dans un TWebBrowser aux favoris |
||||
// Placer sur la TForm: 1 TEdit, 2 TButtons, 1 TWebbrowser const NotAllowed: set of Char = ['"'] + ['/'] + [''] + ['?'] + [':'] + ['*'] + ... | ||||
| Delphi - Trucs et astuces - Internet | le 26/04/2006 | vu 2251 fois | Screaminator | |