Einzelnen Beitrag anzeigen

Benutzerbild von IBExpert
IBExpert

Registriert seit: 15. Mär 2005
646 Beiträge
 
FreePascal / Lazarus
 
#2

AW: Wetterstation Daten auslesen/speichern

  Alt 10. Jul 2023, 07:48
ich benutze das hier in ibexpert für aus auslesen von stromverbrauchswerten auf shelly, technisch macht der da
genau das was du auch brauchst, setzt aber wegen ibeblock die ibexpert vollversion voraus, liesse sich aber
in delphi direkt auch machen

uses urlmon; UrlDownloadToFile (gab es zumindest mal so)


Code:
execute ibeblock
as
begin
  DB = ibec_CreateConnection(__ctInterBase,
                             'DBName="127.0.0.1:C:\db\db.fdb";
                             ClientLib=C:\Program Files (x86)\HK-Software\IBExpert\firebird3\fbclient.dll;
                             User=SYSDBA; Password=masterkey; Names=UTF8; SqlDialect=3;');
  use db;
  ibec_url_DownloadToVar('http://192.168.0.123/rpc/Switch.GetStatus?id=0',dat,'');
  insert into SHELLY (CH, DAT) values ('p1', :DAT);
  commit;
end
Holger Klemt
www.ibexpert.com - IBExpert GmbH
Oldenburger Str 233 - 26203 Wardenburg - Germany
IBExpert and Firebird Power Workshops jederzeit auch als Firmenschulung
  Mit Zitat antworten Zitat