Bonjour,
Suite à un developpement sous delphi qui me permet de mettre à jour la base mysql de mon site hebergé sur un serveur dedié, je n'arrive pas à faire afficher les photos dans l'objet Tjvimage en procédent de la façon suivante
Un message d'erreur m'indique que le chemin est incorrect.Le chemin utilisé par l'objet "JvImage1.Picture.LoadFromFile(image)" se positionne en local sur c:\users\toto\documents\rad studio\projets\http://monsite.fr\images
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 procedure TForm5.FormShow(Sender: TObject); var image,repertoire,hote:string; begin if not (IdFTP1.Connected) then Connection; if IdFTP1.Connected then begin IdFTP1.ChangeDir('/www/images-articles/'); repertoire:=IdFTP1.RetrieveCurrentDir+'/'; label1.Caption:=repertoire ; hote:=IdFTP1.Host; label3.Caption:= 'http://'+hote+'/images-articles/'+mydatasource1.DataSet.FieldByName('photo').Text; image:=hote+'/images-articles/'+mydatasource1.DataSet.FieldByName('photo').Text; JvImage1.Picture.LoadFromFile(image); end; end;
Merci d'avance pour votre aide
Labrande![]()
Partager