[2.0.8] Récupérer des URL sans TWebBrowser

Version imprimable

24/02/2023, 16h03
didoudek

[2.0.8] Récupérer des URL sans TWebBrowser

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
24/02/2023, 20h26
Roland Chastain

Bonjour !

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

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:

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)

25/02/2023, 16h32
Jipété

Citation:

Envoyé par didoudek

comment puis-je faire autrement ?

En utilisant wget en ligne de commande, tout simplement, utilisable sous Windows et Linux.
27/02/2023, 11h01
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
27/02/2023, 13h14
bb84000

Bonjour,

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

bb84000
27/02/2023, 14h05
Jipété

Citation:

Envoyé par didoudek

[...] 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...

1 pièce(s) jointe(s)

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

Code:

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 :
Pièce jointe 634939

Ami calmant, J.P (sans T)

1 pièce(s) jointe(s)

Même chose avec juste wget :

Code:

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;

Pièce jointe 634950
:mouarf:
:coucou:

10/03/2023, 11h03
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
12/03/2023, 10h08
bb84000

Bonjour,

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

bb84000