Discussion :

[didoudek]

Bonjour,
Je possède Lazarus 2.0.8 et j'aimerais pouvoir récupérer des url sous la forme "http://servuer.com/affiche.jpg" mais dans cette version je ne possède pas de composant TWebBrowser, comment puis-je faire autrement ?
Quelqu'un aurait-il une info à me donner pour avancer, j'ai pas mal cherché mais je ne trouve rien.
Merci par avance

[Roland Chastain]

Bonjour !

Récupérer des URL, c'est-à-dire ? Je ne comprends pas la question (désolé).

[jurassic pork]

Hello,
voici un exemple qui utilise le composant tfphttpclient de fcl-web qui va chercher le fichier gif animé de la panthère qui court sur le site de free pascal.

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
21
22
23
24
25
26
27
program lazgetFile;
uses
  classes, fphttpclient,  opensslsockets;
const
  Fichier = 'd:\temp\logo.gif';
var
  cli: TFPHTTPClient;
  FS: TStream;
begin
  FS := TFileStream.Create(Fichier,fmCreate or fmOpenWrite);
  cli := TFPHTTPClient.Create(nil);
  cli.AddHeader('User-Agent','Mozilla/5.0 (X11; Linux i686; rv:5.0) Gecko/20100101 Firefox/5.0');
  try
    try
      cli.AllowRedirect := true;
      cli.Get('https://www.freepascal.org/pic/logo.gif',FS);
    except
      writeln('oops');
      readln;
    end;
  finally
    writeln('tapez Return pour Terminer');
    readln;
    FS.free;
    cli.free
  end;
end.

Ami calmant, J.P (sans T)

[Jipété]

comment puis-je faire autrement ?

En utilisant wget en ligne de commande, tout simplement, utilisable sous Windows et Linux.

[didoudek]

Bonjour, merc ipour vos retour en fait j'ai juste besoin d'insérer dans ma fiche un explorateur windows afin d'afficher une image que je récupère en direct via http mais ous Lazarus à l'inverse de delphi je ne trouva pas de composant Twebbrowser ? d'ou ma question.
Merci par avance

[bb84000]

Bonjour,

Je vous suggère d'aller voir la page Webbrowser ou différents scenarii sont proposés.

bb84000

[Jipété]

[...] j'ai juste besoin d'insérer dans ma fiche un explorateur windows afin d'afficher une image que je récupère en direct via http mais sous Lazarus à l'inverse de delphi je ne trouve pas de composant Twebbrowser ? d'où ma question.

Mais s'il s'agit juste d'afficher une image .jpg, pourquoi se compliquer la vie avec une usine à gaz là où un TImage ferait l'affaire ?

Et on dirait bien que le post d'origine est à côté de la plaque, ou à tout le moins, incomplet et imprécis...

[jurassic pork]

Hello,
Voici du code pour charger une image venant d'un site web dans un TImage :

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
21
22
23
24
25
26
27
28
29
30
31
implementation
uses
  fphttpclient,  opensslsockets;
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Bt_ChargerClick(Sender: TObject);
var
  cli: TFPHTTPClient;
  FS: TMemoryStream;
begin
  FS := TMemoryStream.Create;
  cli := TFPHTTPClient.Create(nil);
  cli.AddHeader('User-Agent','Mozilla/5.0 (X11; Linux i686; rv:5.0) Gecko/20100101 Firefox/5.0');
  try
    try
      cli.AllowRedirect := true;
      cli.Get(EditUrl.Text,FS);
      FS.Position := 0;
      Image1.Picture.LoadFromStream(FS);
    except
      ShowMessage('oops');
      readln;
    end;
  finally
     //ShowMessage('OK');
    FS.free;
    cli.free
  end;
end;

Résultat :


Ami calmant, J.P (sans T)

[Jipété]

Même chose avec juste wget :

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
21
22
uses Process;
 
procedure TForm1.btnTestWgetClick(Sender: TObject);
var
  aProcess: TProcess;
begin
  try
    aProcess := TProcess.Create(nil);
    with aProcess do begin
      Executable := 'wget';
      Parameters.Add('-P');
      Parameters.Add('/tmp');
      Parameters.Add('https://www.developpez.com/images/logos/pascal.png');
      Options := Options + [poWaitOnExit];
      Execute;
      if ExitStatus = 0 then img.Picture.LoadFromFile('/tmp/pascal.png');
    end;
  except
    ShowMessage('error ' + IntToStr(aProcess.ExitStatus));
  end;
  aProcess.Free;
end;

[didoudek]

Bonjour et merci à tous de m'aider sur ce problème... En fait je vais être plus précis : j'exécute des requêtes SQL qui me récupèrent un champ contenant le raccourci d'une image sur le web en "https:/service.com/XXDR/tot.jpg" et je veux afficher ce champ dans un webbrowser dimensionnable car je ne veux pas que ce webbrowser me prenne toute ma fiche car j'ai d'autres infos à afficher...
Où bien puis-je récupérer ce https dans un Timage ? Mais comment faire ?
Merci par avance

[bb84000]

Bonjour,

Jurassic Pork a déjà répondu à votre question, il me semble.

bb84000