onlyou13

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理
  85 随笔 :: 22 文章 :: 0 评论 :: 41005 阅读

02 2023 档案

摘要:A: f1_urls = ['a', 'b'] f2_urls = ['a', 'c'] python3 中获取存在于f1_urls 而不在f2_urls的项目 Q: f1_urls = ['a', 'b'] f2_urls = ['a', 'c'] # 将列表转换为集合 f1_set = set( 阅读全文
posted @ 2023-02-27 18:03 onlyou13 阅读(29) 评论(0) 推荐(0) 编辑

摘要:问1: 如何用delphi调用ChatGPT接口 答1: uses IdHTTP, System.JSON; function GetChatGPTResponse(const Query: string): string; var IdHTTP: TIdHTTP; begin IdHTTP := 阅读全文
posted @ 2023-02-16 21:42 onlyou13 阅读(1688) 评论(0) 推荐(0) 编辑

摘要:library GlobalHooks; uses Windows; {$R *.res} const WH_KEYBOARD_LL = 13; WH_MOUSE_LL = 14; type TKeyboardHook = record Hook: HHOOK; Callback: function 阅读全文
posted @ 2023-02-16 21:25 onlyou13 阅读(261) 评论(0) 推荐(0) 编辑

摘要:问1: curl "https://api.m.afreecatv.com/station/video/a/view" ^ -H "authority: api.m.afreecatv.com" ^ -H "accept: application/json, text/plain, */*" ^ - 阅读全文
posted @ 2023-02-16 20:56 onlyou13 阅读(283) 评论(0) 推荐(0) 编辑

摘要://版本一:吃完一个就结束了。unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Control 阅读全文
posted @ 2023-02-10 15:49 onlyou13 阅读(288) 评论(0) 推荐(0) 编辑

摘要:uses System.Rtti, System.JSON; type TPerson = class public Name: string; Age: Integer; end; function ObjectToJSON(AObject: TObject): string; var Conte 阅读全文
posted @ 2023-02-10 15:26 onlyou13 阅读(120) 评论(0) 推荐(0) 编辑

摘要:uses Classes, SyncObjs; type TItem = class Data: Integer; end; TProducer = class(TThread) private FQueue: TThreadedQueue<TItem>; protected procedure E 阅读全文
posted @ 2023-02-10 15:24 onlyou13 阅读(608) 评论(0) 推荐(0) 编辑

摘要:uses SysUtils, Classes, DateUtils; const LineBreak = #13#10; type TSubtitle = record Start, Stop: TDateTime; Text: string; end; function ParseASS(cons 阅读全文
posted @ 2023-02-10 15:13 onlyou13 阅读(125) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示