Discussion :

[rousseaumathis]

Bonjour à tous,

J'ai une petite galère. Je voudrais à partir de delphi 7 faire une fonction qui ouvre une page Web et y écrive le contenu d'un fichier txt directement. Cela est-il possible ?
Je m'explique avec un exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sys := TStringList.Create;                            //Creation de la TStringList 
Sys.LoadFromFile('C:\Users\MonFichier.txt');                             //Chargement du fichier .txt dans la TStringList
Document := Sys.Text ;
ShellExecute(0,'OPEN','http://api.labelary.com/v1/printers/12dpmm/labels/4x6/0/+Document+', Nil, Nil, SW_SHOW);

Le problème est que cela fonctionne que lorsque le fichier txt possède peu de caractères : quand il y en a beaucoup, cela ne fonctionne pas...
Merci d'avance, j'espère que j'ai été clair dans mes explications...

[Paul TOTH]

il faut passer par un composant de type TidHTTP et faire un POST() du texte

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
 
procedure TForm1.FormCreate(Sender: TObject);
var
  Str: string;
  ZPL: TStringStream;
  IMG: TMemoryStream;
  PNG: TPNGImage;
begin
  Str := '^xa^cfa,50^fo100,100^fdHello World^fs^xz';
  ZPL := TStringStream.Create(Str);
  IMG := TMemoryStream.Create;
  IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
  IdHTTP1.Post('http://api.labelary.com/v1/printers/8dpmm/labels/4x6/0/', ZPL, IMG);
  ZPL.Free;
  PNG := TPNGImage.create;
  IMG.Position := 0;
  PNG.LoadFromStream(IMG);
  IMG.Free;
  Image1.Picture.Assign(PNG);
  PNG.Free;
end;

[rousseaumathis]

Merci beaucoup de ta réponse deja !!!
J'arrive a faire afficher une ligne de commande mais mon problème est que je doit afficher une étiquette ZPL entière, et la ca ne marche pas..
Elle se trouve dans un fichier .zpl ou un RichEdith.
LA solution que tu m'as proposer j'arrive pas a la faire fonctionner a cause du TPGNImage car je suis sur D7..

[SergioMaster]

Comme l'API ne fourni que des PNG (ou des PDF) la solution consiste à installer un composant (ou plutôt une unité) permettant de lire les png
https://www.developpez.net/forums/d5...g-sous-delphi/

le lien pointé #9 (torry.net) est toujours accessible

sinon, la bibliothèque graphicex

ou encore, utiliser la dernière version de Delphi Communauty

[Paul TOTH]

Merci beaucoup de ta réponse deja !!!
J'arrive a faire afficher une ligne de commande mais mon problème est que je doit afficher une étiquette ZPL entière, et la ca ne marche pas..
Elle se trouve dans un fichier .zpl ou un RichEdith.
LA solution que tu m'as proposer j'arrive pas a la faire fonctionner a cause du TPGNImage car je suis sur D7..

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
 
procedure TForm1.FormCreate(Sender: TObject);
var
  Str: string;
  ZPL: TStringStream;
  IMG: TMemoryStream;
begin
  Str := '^xa^cfa,50^fo100,100^fdHello World^fs^xz';
  ZPL := TStringStream.Create(Str);
  IMG := TMemoryStream.Create;
  IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
  IdHTTP1.Post('http://api.labelary.com/v1/printers/8dpmm/labels/4x6/0/', ZPL, IMG);
  ZPL.Free;
  IMG.Position := 0;
  IMG.SaveToFile('Image.PNG');
  IMG.Free;
end;

Maintenant tu peux chercher comment gérer une image PNG