FreePascal.ru

Рад что развлек ... :wink: Но в чем дело то ? (fphttpclient кстати в 64-биитной версии "подает признаки жизни" но через раз (dll заменил ) )
(Разумеется есть 1500 вариантов замены fphttpclient-та так что ... LoadAndScaleImage(const URLOrFilePath: string; const TargetWidth, TargetHeight: Integer ...

Оба файла libeay32.dll и ssleay32.dll лежат в текущей папке...
И что интересно, что "Город" и "Остаток" - отлично читаются, а если нужно что-то отправить туда, то возвращается 200, но пустая строка...
Я ... ExecNormalDadata(Adres, Token, Key: string): Boolean;
var
HTTP: THTTPSend;
//SL ...

Проблема ssl ? ssleay32.dll и libeay32.dll доступны ? ( и актуальных версий )

Synapse использует OpenSSL, и компилировать его (synapse) в свой проект, нужно с поддержкой конкретной версии, по умолчанию ... ExecNormalDadata(Adres, Token, Key: string): Boolean;
var
HTTP: THTTPSend;
//SL ...

В Windows 10 появился же терминал (ConPTY).
Это хорошо но мне совместимость (минимум с 7-й ) нужна ... PChar;
Coord: _COORD;
i: Integer;
S,S1:String;
J:Integer;
begin
if windows.IsWindow(con_h)
then begin

@AttachConsole:= GetProcAddress(GetModuleHandle('kernel32.dll'), 'AttachConsole');

if ...

Добрый день, подскажите пожалуйста кто знает, живой действующий пример отправки сообщения на почту ... RecipientEmail, MailSubject, MailBody: string; SmtpPort: Integer): Boolean;
var
CSocket ... но OpenSSL будет гораздо проще, ценой двух dll в папке с программой.

Приведенные примеры ...

Поработав 10 минут с другом из OpenAI, получил рабочий кроссплатформенный код (проверял только на win ... KillProcessesByName(const ProcessName: string): boolean;
var
ProcessID: DWORD; // используем ... implementation

const
kernel32 = 'kernel32.dll';

function CreateToolhelp32Snapshot(dwFlags ...

Задача: найти что-то вроде эмулятора терминала ( запускаю консольный ffmpeg для сборки фильмов из m3u8 ... по имени "
function KillTask(ExeFileName:String):integer;
const Process_Terminate=$0001;
var ... для WinCe
B требует ужасно древнюю TOOLHELP.DLL ( и ныне не совместимую с нормальной виндой)
Но ...

... приходит нормально.
Добрый!
Исходных данных маловато все равно :)
Я взял для теста загрузил ... 3.2.2 64bit в vscode, без лазаря
Взял libeay32.dll и ssleay32.dll под 64bit отсюда https://github ... SysUtils, IdHTTP;

var IdHTTP1 : TIdHTTP;
s : string;
JsonToSend: TStringStream;

begin
JsonToSend ...

А если загружать DLL, а не связывать жестко?


function TFLauncher.LoadPlugin(Filename: String): Boolean;
var
PluginPath :PChar;
newPlugin :TPluginItem;
PluginCorrect:Boolean;
DLLHandle :THandle;
sResult :WideString;
i :Integer;
begin
try
PluginCorrect:=true;
Result:=false;
// загружаем dll ...

"Eще какая-то форма" это та же самая форма в ДЛЛ
library BuildInBrowser;
...
Application.CreateForm ... INFORMATION;
buf:array[1..100] of char;

S:String;
P:Pointer;
begin
ZeroMemory(@si, sizeof(si ... пытается перезагружаться даже если не нажимаешь ничего .
Так что проблемы в BuildInBrowser.dll и хроме

Win7 х64
Исходников очень много, выкладывать не реально.

Добавлено спустя 5 минут 34 секунды ... SysUtils, Dynlibs, Dialogs;

type
TLoadedDllRec=record
Name:string;
hnd: THandle;
end;
PLoadedDllRec=^TLoadedDllRec;

function EvallDllProc(const DLLName, ProcName:string; Zn:Pointer ...

Привет всем.

Встала задача написания телеграм-бота для передачи в телеграм данных из БД Firebird; при ... WINDOWS}
DB.LibraryName:='fbclient.dll';
{$ELSE}
DB.LibraryName:='libfbclient ... except
on E: Exception
do begin
with TStringList.Create
do try
Add (E.Message ...

Полезная штуковина!
Проверка коннекта сетью ( Работает без таймаута что не только заметно меньше давит ... DWORD):BOOL; stdcall; external 'wininet.dll' name 'InternetGetConnectedState';
function ... uses wininet;
function CheckUrl(url: string): boolean;
var
hSession, hfile, hRequest ...

... стереопары" нужно загрузка стерео-текстуры.
В первом варианте техно демки с (применением кучи сторонних DLL и без LCL интерфейса ) она была..
Но кто сказал что без этих самых "сторонних DLL" текстуры не загружается ?
Кто угодно но только не я !
function LoadTextureBMP(const FileName: String ...

FreeGlut - это расширение Glut.
Но на всех системах надо установить FreeGlut !
На Windows дополнительно надо смотреть 32-х разрядная система или 64-х. Обычно оба DLL идут в одном архиве.
На Linux просто ... 46;2] of TAAPLVertex;

GLErrorStr: string = '';
{$EndIf}

{$IFDEF CORE_GL}
const ...