Последние записи
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
19th
Июл
Универсальный совет для дизассемблирования
Это очень обширная тема, и, естесственно, не бывает универсальной методики, а бывают килограммы книг по дизассемблированию (копать в сторону Криса Касперски). Но вот есть что-то общее для этой темы:
Здравствуйте уважаемые формучане, есть проблемма с получением исходников из ехе приложения, упакован Armadilio, помогите советом, или прийдется позновать все тонкости дизассемблирования ((((….
1) Открой прогу в PEID(можно скачать с www.cracklab.ru) и определи версию упаковщика Armadillo.
2) Распакуй(распаковщик для Armadillo на этом же сайте) свою прогу и еще раз
открой в PEID(или можно в EXEINFO) чтобы узнать на чем же писали и версию компилятора.
3) Если нужен диззассемблированный код открой в OllyDebuger v 1.10(не 2.0) или
IDA advanced pro и анализируй код до посинения.
4) Если нужен именно исходник то после определения на чем писалось и версии
компилятора делай так:
Если покажет Delphi то декомпилируй в DeDe
Если С++ то декомпилер от HexRays тебе в руки(кстати вместе с IDA как плугин
прикрепляют).
Если честно современными декомпиляторами можно получить многое о коде но не
все(Даже и не думай об обратной компиляции исходника полученного таким способом). Поэтому шоб получить читабельный компилябельный код надо хроршо
погимориться над этим.
Кстати еще можно попробовать SourceRescuer для декомпиляции С++ Builder
19th
Delphi+MySQL. Какой компонент можно использовать?
Posted by Chas under Пост-обзор
MySQL Data Access Components v5.90.0.57 (Delphi 5-2010)
MySQL Data Access Components (MyDAC) – это расширенная библиотека VCL / VCL DOT NET / CLX компонентов для быстрого прямого доступа к серверам MySQL из Delphi, C++Builder и Kylix. MyDAC тщательно протестирован на производительность и стабильность для обеспечения наиболее быстрого соединения по сетевому протоколу с MySQL.
— Прямой доступ к данным сервера. Не требует установки других средств доступа к данным (таких как BDE и ODBC).
— В Direct режиме не требует клиента MySQL, а работает напрямую через TCP/IP.
— Полная поддержка последних версий MySQL и всех типов данных MySQL.
— Disconnected Model с автоматическим контролем соединения для работы с данными в режиме offline.
— Local Failover для обнаружения потери соединения и перевыполнения определенных операций.
— Все типы локальной сортировки и фильтрации.
— Автоматическое обновление данных с помощью компонентов TMyQuery, TMyTable и TMyStoredComponents.
— Поддержка Unicode и национальных кодировок.
— Поддержка специфических для MySQL типов данных и функций, таких как блокировка, типы данных SET и ENUM.
— Расширенная функциональность выполнения скриптов при помощи компонента TMyScript.
— Поддержка макроподстановок в текстах запросов.
— Интеграция с MySQL Developer Tools для решения сложных задач разработки и администрирования баз данных.
— Простая миграция с BDE с помощью Migration Wizard.
19th
Как установить принтер. WinApi и С++
TCHAR temp[MAX_PATH];
DWORD size = MAX_PATH;
GetDefaultPrinter(temp, &size);
HDC hDC = CreateDC(NULL, temp, NULL, NULL);
if(hDC){
DOCINFO docinfo;
docinfo.cbSize = sizeof(docinfo);
docinfo.lpszDocName = _T("Simple");
docinfo.lpszOutput = NULL:
docinfo.lpszDatatype = _T("EMF");
docinfo.fwType = 0;
if(StartDoc(hDC, &docinfo) > 0){
if(StartPage(hDC) > 0){
TextOut(hDC, ....);
EndPage(hDC);
}
EndDoc(hDC);
}
DeleteDC(hDC);
14th
Июл
Вывести набор случайных строк из бд? php
Johnatan
$amount = 10; // сколько строк выбирать из базы
$rows = mysql_result(mysql_query(’SELECT COUNT(*) FROM `sb_eng`’), 0);
$fquery = array();
while (count($fquery) < $amount) {
$fquery[] = '(SELECT * FROM `sb_eng` LIMIT '.rand(, $rows).', 1)';
}
$query = implode(' UNION ', $fquery);
$res = mysql_query($query)У тебя будет чистый набор рандомных строк из таблицы. Быстро и эффективно. Плюс не забываем про замечательную функцию mysql_fetch_assoc
14th
Gif анимация в delphi
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, GifImg, ExtCtrls;
type
TForm30 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
Gif: TGifImage;
public
{ Public declarations }
end;
var
Form30: TForm30;
implementation
{$R *.dfm}
procedure TForm30.FormCreate(Sender: TObject);
begin
Gif := TGifImage.Create;
Gif.LoadFromFile(’C:\Xom04.gif’);
Gif.Animate := True;
Gif.AnimateLoop := glEnabled;
end;
procedure TForm30.Timer1Timer(Sender: TObject);
begin
Image1.Picture.Assign(Gif);
end;
end.
12th
Июл
Открывать файлы .txt с помощью своей программы
procedure TForm1.FormCreate(Sender : TObject);
var reg : TRegistry;
begin
reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey(’.txt’, true);
reg.WriteString(”,’txtfile’);
reg.CloseKey;
reg.CreateKey(’txt’+’DeDoK’;
reg.OpenKey(’txtfile\DefaultIcon’, true);
reg.WriteString(”,Application.ExeName+’,0′);
reg.CloseKey;
reg.OpenKey(’txtfile\shell\open\command’,true);
reg.WriteString(”,Application.ExeName+’”%1″‘);
reg.CloseKey;
reg.Free;
end;
9th
Июл
Как узнать позицию курсора в TMemo?
var
X, Y: LongInt;
begin
Y := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
X := Memo1.Perform(EM_LINEINDEX, Y, 0);
inc(Y);
X := Memo1.SelStart – X + 1;
Form1.Caption := ‘X = ‘ + IntToStr(X) + ‘ : ‘ + ‘Y = ‘ + IntToStr(Y);
end;
8th
Июл
TStringGrid проверка вводимых данных в ячейку
Условие:
В ячейках только цифры, поэтому больше одного символа в ячейчке не должно быть.
Stilet:
Я бы написал так:
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
with TStringGrid(Sender) do
if not (key in [‘0’..’9′])or(length(Cells[Col,row])=1)
then key:=#0;
end;
8th
В чем разница между CreateThread(); и _beginthreadex(); и что лучше использовать?
pproger:
msdn:
A thread in an executable that calls the C run-time library (CRT) should use the _beginthread and _endthread functions for thread management rather than CreateThread and ExitThread; this requires the use of the multi-threaded version of the CRT. It is safe to call CreateThread and ExitThread from a thread in a DLL that links to the static CRT as long as the thread does not call the DisableThreadLibraryCalls function.кратко-вольный перевод. если используешь многопоточную версию crt, используй _beginthread. иначе возникнут проблемы при использовании глобальных переменных и тп, ибо в первой версии crt и понятия не было о многозадачности. об этом еще рихтер писал
а “ex” – просто более широкий набор параметров, не более
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет Microsoft Office Excel excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)