摘要：
问1： 如何用delphi调用ChatGPT接口 答1： uses IdHTTP, System.JSON; function GetChatGPTResponse(const Query: string): string; var IdHTTP: TIdHTTP; begin IdHTTP := 阅读全文
|
摘要：
问1： 如何用delphi调用ChatGPT接口 答1： uses IdHTTP, System.JSON; function GetChatGPTResponse(const Query: string): string; var IdHTTP: TIdHTTP; begin IdHTTP := 阅读全文
摘要：
library GlobalHooks; uses Windows; {$R *.res} const WH_KEYBOARD_LL = 13; WH_MOUSE_LL = 14; type TKeyboardHook = record Hook: HHOOK; Callback: function 阅读全文
摘要：
问1： curl "https://api.m.afreecatv.com/station/video/a/view" ^ -H "authority: api.m.afreecatv.com" ^ -H "accept: application/json, text/plain, */*" ^ - 阅读全文
摘要：
//版本一：吃完一个就结束了。unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Control 阅读全文
摘要：
uses System.Rtti, System.JSON; type TPerson = class public Name: string; Age: Integer; end; function ObjectToJSON(AObject: TObject): string; var Conte 阅读全文
摘要：
uses Classes, SyncObjs; type TItem = class Data: Integer; end; TProducer = class(TThread) private FQueue: TThreadedQueue<TItem>; protected procedure E 阅读全文
摘要：
uses SysUtils, Classes, DateUtils; const LineBreak = #13#10; type TSubtitle = record Start, Stop: TDateTime; Text: string; end; function ParseASS(cons 阅读全文
摘要：
private static void TestTask1() { Console.WriteLine("start TestTask1 "); Task task1 = new Task(() => { Thread.Sleep(3000); Console.WriteLine($"..threa 阅读全文
摘要：
private void btnRunBackgroundWorker_Click(object sender, EventArgs e) { Console.WriteLine($"主线程：{Thread.CurrentThread.ManagedThreadId}"); InitBackgrou 阅读全文
摘要：
class Program { static void Main(string[] args) { Console.WriteLine($"主线程：{Thread.CurrentThread.ManagedThreadId}"); var obj = new MyTestClass(); obj.T 阅读全文
|