Forum du club des d�veloppeurs et IT Pro - Free Pascal

[Free Pascal] Probl�mes avec les Variants

Bardoire37 — Fri, 31 Jul 2026 16:37:09 GMT

Bonjour

Je gal�re depuis une demi journ�e avec les variants :
Si la solution que j'ai trouv� peut servir � quelqu'un ??

Si je code :

Code:

1
2
3
4
 
V: Variant ;
..
V := 'Toto' ;

j'ai : vstring: $0000000001518FA8^: Error: Unknown data
et je ne peux pas l'utiliser avec un Qry_Db.LookUp

pour ne pas avoir d'erreur je code

Code:

1
2
 
 V := UTF8Decode( 'Toto' )  //->  volestr: $00000000015E1F78^: 'Toto'

ca fonctionne

autre d�couverte
si je code

Code:

1
2
3
 
 V := 10 ;
  VarIsType( Vt , varInteger ) ; //retourne faux

pour avoir un type integer il faut coder

Code:

1
2
3
 
  V := 10 ;
  V := VarAsType( V , varInteger ) ;

Version : Lazarus 4.2 (rev lazarus_4_2) FPC 3.2.2 x86_64-win64-win32/win64

Bon WeekEnd

[Free Pascal] [Synapse] �chec de la fonction FtpPutFile

Roland Chastain — Fri, 17 Jul 2026 09:30:34 GMT

Bonjour tout le monde.

J'essaie sans succ�s d'envoyer des fichiers sur mon site personnel en utilisant la fonction FtpPutFile.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses
  ftpsend;
 
{ function FtpPutFile(const IP, Port, FileName, LocalFile, User, Pass: string): boolean; }
 
begin
  WriteLn(FtpPutFile(
    'ftp.msegui.net',
    '21',
    '/www/1.txt',
    //'public_html/1.txt',
    '1.txt',
    'USERNAME',
    'PASSWORD'
  ));
end.

Gr�ce au programme suivant que j'ai trouv� sur le forum Lazarus anglophone, j'ai pu r�cup�rer un message d'erreur :

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
53
54
55
56
57
 
// onstatus1.pas
 
{ https://forum.lazarus.freepascal.org/index.php/topic,60237.msg450362.html#msg450362 }
 
uses
  FTPSend, blcksock;
 
type
  TFTPSend1 = class(TFTPSend)
  public
    procedure ParseRemote(Value: string); override;
    class procedure OnMyStatus(Sender: TObject; Response: boolean; const Value: string);
  end;
 
  class procedure TFTPSend1.OnMyStatus(Sender: TObject; Response: boolean; const Value: string);
  begin
    Writeln(Value);
  end;
 
  procedure TFTPSend1.ParseRemote(Value: string);
  begin
    inherited;
    Writeln('--> PASV reports data channel: ' + FDataIP + ' on ' + FDataPort);
    Writeln('--> Server is on ' + Self.Sock.GetRemoteSinIP);
 
    // Check here if FDataIP the same as IP of control channel
    // if not, we probably have a internal ip
 
    if (FDataIP <> Self.Sock.GetRemoteSinIP) then
    begin
      Writeln('--> So PASV is probably reporting an internal IP');
      Writeln('--> Redirecting to server IP: ' + Self.Sock.GetRemoteSinIP);
      FDataIP := Self.Sock.GetRemoteSinIP; // we keep FDataPort the same
    end;
 
  end;
 
var
  FTPSend1: TFTPSend;
 
begin
  FTPSend1 := TFTPSend1.Create;
  FTPSend1.TargetHost := 'ftp.msegui.net';
  FTPSend1.TargetPort := '21';
  FTPSend1.Username := 'USERNAME';
  FTPSend1.Password := 'PASSWORD';
  FTPSend1.OnStatus := @TFTPSend1.OnMyStatus;
 
  if FTPSend1.Login then
    Writeln('Succès connexion')
  else
    Writeln('Échec connexion : <<' + FTPSend1.Sock.GetErrorDescEx + '>>');
  {
  FTPSend1.List('/', True); // reading of data channel not implemented here
  }
end.

Code:

1
2
3
4
5
6
7
8
9
10
11
$ ./onstatus1
220---------- Welcome to Pure-FTPd [privsep] [TLS] ----------
220-You are user number 1 of 50 allowed.
220-Local time is now 09:12. Server port: 21.
220-This is a private system - No anonymous login
220-IPv6 connections are also welcome on this server.
220 You will be disconnected after 15 minutes of inactivity.
USER pmwevymq
421-Sorry, cleartext sessions and weak ciphers are not accepted on this server.
421 Please reconnect using TLS security mechanisms.
�chec connexion : <<>>

Du coup j'ai essay� � tout hasard d'utiliser la classe TFtpSend avec les options FullSSL et AutoTLS, toujours sans succ�s:

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
{ http://forum.lazarus.freepascal.org/index.php/topic,33745.msg219139.html#msg219139 }
 
uses
  ftpsend{, ssl_openssl3};
 
begin
  with TFTPSend.Create do
  try
    TargetHost := 'ftp.msegui.net';
    TargetPort := cFtpProtocol;
    UserName := 'USERNAME';
    Password := 'PASSWORD';
   {FullSSL := true;
    AutoTLS := true;}
    if not Login then
    begin
      WriteLn('Échec connexion');
      Exit;
    end;
    if ChangeWorkingDir('/www/roland/temp') then
    begin
      WriteLn(GetCurrentDir);
      ChangeToRootDir;
      WriteLn(GetCurrentDir);
    end;
    Logout;
  finally
    Free;
  end;
end.

Pour information, la commande suivante fonctionne :

Code:

curl -p -v --ssl --insecure "ftp://msegui.net/public_html/roland/temp/" --user "USERNAME:PASSWORD" -T "./1.txt"

[Free Pascal] [Linux] Probl�me d'arborescence incoh�rente

Jip�t� — Mon, 19 Jan 2026 13:51:38 GMT

Bonjour,

afin de ne pas mettre la pagaille dans l'architecture de ma machine, j'ai cr�� la racine d'un disque un dossier que j'ai appel� 'sources' et dans lequel j'ai copi� un fichier WINTYPE.INT qui contient du code FPC.

Ensuite, ce code, je voudrais l'utiliser mais...
j'ai tent� �a, �a m'envoie sur les roses :

Code:

1
2
3
4
5
6
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Messages,
  /sources/WINTYPES.INT,
  LCLintf, LCLtype, LCLproc;
 
Error: Syntax error, "identifier" expected but "/" found

Donc �a ne veut pas le "/" alors je l'enl�ve mais du coup je gagne �a :

Code:

Impossible de trouver sources utilisé par Unit1 de l''inspecteur de projet.

Et pourtant, le dossier sources est bien � sa place :

Enfin, si je rajoute des simples quotes au d�but et � la fin de la ligne, je re�ois �a :

Code:

Error: Syntax error, "identifier" expected but "const string" found

Comment se fait-il que ce genre de manip refuse de fonctionner alors qu'il me semble bien l'avoir utilis�e il y a 15 ans environ ?
Merci pour le petit coup de main.
Linux Debian 12.13

Images attach�es