Envisager Lazarus pour une ancienne application sous Delphi7

Version imprimable

24/06/2021, 13h33
PCBleu

Envisager Lazarus pour une ancienne application sous Delphi7

Bonjour

j'ai une ancienne application sous Delphi7 que j'utilise pour des traitements automatiques...
Elle permet simplement de faire des requêtes http en transmettant éventuellement des fichiers au format texte.
Elle est construite en Delphi7 avec des composants Indy de la version 10.0.76.

Le hic que je rencontre c'est qu'on me demande de faire en sorte que cela fonctionne en https et je me heurte aux problèmes de librairies ssleay32.dll ou libeay32.dll.

Aussi, je me demande si Lazarus ne serait pas la solution pour réaliser cela.

Merci d'avance pour vos retours

Bonne continuation
24/06/2021, 15h19
jurassic pork

hello,
quels genres de protocole réseau utilises-tu ?
pour lazarus il y a en standard comme bibliothèque fcl-net et en bibliothèques tierces possibles : lnet, synapse, indy.
peux-tu nous montrer un bout de code où tu as des problèmes avec indy ?
Ami calmant, J?P
24/06/2021, 16h11
PCBleu

Bonjour :D

c'est une application développée avec Delphi7 qui n'utilise que le composant TIdHttp pour faire des requêtes de type get ou post quand il s'agit de transmettre des fichiers...
ça marche depuis 12 ou 15 ans, mais toujours en échangeant vers des sites sans ssl

j'ai bien ajouté un composant TIdSSLIOHandlerSocket, mais dès l'instruction get ou post j'obtiens une erreur de chargement de la bibliothèque SSL

et donc ce qui amène ma question : est ce envisageable avec Lazarus

Merci d'avance

Voici un exemple d'une requête Get et d'une requête Post vers un serveur https en utilisant la classe TFPHTTPClient 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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
{ TForm1 }
 
uses fphttpclient, opensslsockets;
 
function ReadURL(AUrl: String): String;
begin
  with TFPHTTPClient.Create(nil) do
  try
    Result := Get(AURL);
  finally
    Free;
  end;
end;
 
 
procedure TForm1.Bt_GetClick(Sender: TObject);
begin
  Memo1.Text := ReadURL('https://reqbin.com/echo');
end;
 
 
procedure TForm1.Bt_PostClick(Sender: TObject);
var
    Client: TFPHttpClient;
    Response : TStringStream;
    Params : string = '{"login":"my_login","password":"my_password"}';
begin
    Client := TFPHttpClient.Create(nil);
    Client.AddHeader('User-Agent','Mozilla/5.0 (compatible; fpweb)');
    Client.AddHeader('Content-Type','application/json; charset=UTF-8');
    Client.AddHeader('Accept', 'application/json');
    Client.AllowRedirect := true;
    client.RequestBody := TRawByteStringStream.Create(Params);
    Response := TStringStream.Create('');
    try
        try
            client.Post('https://reqbin.com/echo/post/json', Response);
            Memo1.Text := 'Response Code of Post Request is ' + inttostr(Client.ResponseStatusCode);   // better be 200
        except on E:Exception do
                Memo1.Text := 'Something bad happened in Post Request : ' + E.Message;
        end;
    finally
        Client.RequestBody.Free;
        Client.Free;
        Response.Free;
    end;
 
 
 
 
end;

Ce code fonctionne sous windows 10 Lazarus 2.0.10 fpc 3.2 .
A partir de fpc 3.2 l'unité opensslsockets simplifie l'utilisation du ssl.

Ami calmant, J.P

hello,
pour le post un test plus complet avec un autre serveur de test :

exemple :

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
32
33
34
procedure TForm1.Bt_PostClick(Sender: TObject);
var
 
    Client: TFPHttpClient;
    Response : TStringStream;
    Params : string = '{"title": "titre","body": "corps","userId": 1}';
begin
    Client := TFPHttpClient.Create(nil);
    Client.AddHeader('User-Agent','Mozilla/5.0 (compatible; fpweb)');
    Client.AddHeader('Content-Type','application/json; charset=UTF-8');
    Client.AddHeader('Accept', 'application/json');
    Client.AllowRedirect := true;
    client.RequestBody := TRawByteStringStream.Create(Params);
    Response := TStringStream.Create('');
    Memo1.Clear;
    try
        try
            client.Post('https://jsonplaceholder.typicode.com/posts', Response);
            Memo1.Append('Response Code of Post Request is ' +
            inttostr(Client.ResponseStatusCode));
            Memo1.Append('Réponse : ' + Response.DataString);
        except on E:Exception do
                Memo1.Text := 'Something bad happened in Post Request : ' + E.Message;
        end;
    finally
        Client.RequestBody.Free;
        Client.Free;
        Response.Free;
    end;
 
 
 
 
end;

Résultat :

Citation:

Response Code of Post Request is 201
Réponse : {
"title": "titre",
"body": "corps",
"userId": 1,
"id": 101
}

Ami calmant, J.P