Trucs et astuces Delphi - page 3

Avec Delphi, rien n'est impossible ! Telle a été notre devise pendant des années. A la fois EDI et langage de développement (Pascal), l'outil Delphi facilite grandement la création d'applications. A l'origine, Delphi est un langage compilé qui s'execute sur des plateformes 32 bits. Depuis l'editeur a apporté de nouvelles fonctionnalités qui ne sont pas traitées sur Fobec.com.

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/truc-astuce/internet/
le 13/07/2006
vu 1748 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/truc-astuce/internet/
le 29/06/2006
vu 1776 fois
Communauté Delphi

Afficher les Hints dans une StatusBar

{....} private { Private-Deklarationen } procedure MyHint(Sender: TObject); {....} procedure TForm1.FormCreate(Sender: TObject); begin Application.OnHint := MyHint; ShowHint := true; ...
delphi/truc-astuce/autre-categorie/
le 10/06/2006
vu 2284 fois
Rainer Kümmerle

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/truc-astuce/internet/
le 26/05/2006
vu 1493 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/truc-astuce/internet/
le 06/05/2006
vu 1159 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 = ['"'] + ['/'] + [''] + ['?'] + [':'] + ['*'] + [''] + ['|'];implementation{$R *.DFM} function ...
delphi/truc-astuce/internet/
le 26/04/2006
vu 2254 fois
Screaminator

Connaitre la position de la barre des tâches

var hTaskbar : HWND; T : TRect; begin hTaskBar:=FindWindow('Shell_TrayWnd',nil); // Find the handle of the taskbar GetWindowRect(hTaskBar,T); if (T.Top > Screen.Height DIV 2) and...
delphi/truc-astuce/systeme/
le 12/04/2006
vu 1505 fois
SwissDelphiCenter

Règler le volume du Mediaplayer

procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);{ Volume: 0 - 1000 } const MCI_SETAUDIO = $0873; MCI_DGV_SETAUDIO_VOLUME = $4002; MCI_DGV_SETAUDIO_ITEM = $00800000; ...
delphi/truc-astuce/mutlimedia/
le 01/04/2006
vu 2283 fois
SwissDelphiCenter

Dessiner sur le bureau

procedure TForm1.Button1Click(Sender: TObject); var Picture : TPicture; Desktop : TCanvas; X, Y : Integer; begin Picture := TPicture.Create; Desktop := TCanvas.Create; ...
delphi/truc-astuce/graphisme/
le 25/03/2006
vu 2463 fois
SwissDelphiCenter

Jouer 2 sons en même temps

uses MMSystem; procedure SendMCICommand(Cmd: string); var RetVal: Integer; ErrMsg: array[0..254] of char; begin RetVal := mciSendString(PChar(Cmd), nil, 0, 0); if RetVal 0 then begin...
delphi/truc-astuce/mutlimedia/
le 14/02/2006
vu 1781 fois
SwissDelphiCenter

Script Delphi

Espace membre
Catégorie
Résumé de la rubrique
Contenu
528 articles
Rédaction
3 auteurs
Mise a jour
28/04/2009
Partager sur les réseau sociaux
Articles au hasard