[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

как вставить а главное прочитать картинку из бд ms acess ??
я так делаю

но чета не как...

 

На сколько я помню MS Access не дает просто так это сделать. Там нужно както хитро это делать и там по смешению 1C проде будет начинаться как раз картинка. Когда читал про это на одном забугорном форуме. Там реально всё через жопу делается.

 

а если тогда так, через опендиалог выбираем фаил картинке, записываем путь в бд, потмом получаем картунку по этому пути.. как такое реализовать ?

 

Zitt, тут глянь
_http://www.sql.ru/forum/actualthread.aspx?tid=237312
_http://www.sql.ru/faq/faq_topic.aspx?fid=518
_http://www.sql.ru/forum/actualthread.aspx?tid=167492
помойму то что тебе надо

 

элементарно image1.picture.loadfromfile(tbl.fieldbyname('ImgPath').AsString);

 

Такой вопрос. Перехватываю запрос wireshark'ом

Code:

0000   aa c6 20 00 04 00 04 00 04 00 00 00 08 00 45 00  .. ...........E.
0010   00 4a 34 1e 40 00 80 06 c8 69 4e 84 b2 3e 55 11  [email protected]..>U.
0020   a8 52 07 93 13 7d a6 70 ff da 2b a8 a4 59 50 18  .R...}.p..+..YP.
0030   fe 94 26 09 00 00 4c 00 00 00 00 00 17 74 65 73  ..&...L......tes
0040   74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74  tttttttttttttttt
0050   74 74 74 74 00 00 a6 14                          tttt....

в правой части рашифрованная строка, а вот что

Code:

aa c6 20 00 04 00 04 00 04 00 00 00 08 00 45 00
00 4a 34 1e 40 00 80 06 c8 69 4e 84 b2 3e 55 11
a8 52 07 93 13 7d a6 70 ff da 2b a8 a4 59 50 18
fe 94 26 09 00 00 4c 00 00 00 00 00 17 74 65 73
74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74
74 74 74 74 00 00 a6 14

? В какой системе исчисления и как собственно расшифровывать? Функция Chr вроде не подходит, конечно понимаю что это вопрос на уровне 7-8 класса, но всё же.

 

Эмм.. Это ж 16ричная система счисления, в левой то же самое что и в правой, только шестнадцатеричные коды символов. Вот как то так.

 

art2222 спасибо, к стати существует ли в делфях какая-нибудь встроенная функция для перевода в строки в 16ричную, а то гугл даёт только переводы чисел из двоичной в 16ричную итд

 

Code:

function IntToHex(Value: Integer; Digits: Integer): String;

 

А чтобы из Hex в Int перевести нужно самому написать функцию типа

Code:

function Hex2Int(s:string):integer;
begin
 result:=strtoint('$'+s);
end;

 

как в делфях использовать гиперболическую функцию?! (для дальнейшего её построения)

 

Нада человек який решить задачки 1-курсу института

Задача типа

С меня плюсики + благодарность

Заданий много то стучите все и при цьом задания разних типов

Актуально

 

вот так, к примеру:
http://www.helloworld.ru/texts/comp/lang/delphi/delphi5/math/math52.htm

а вообще exp(x) и ln(x) тоже никто не запрещал использовать

 

Code:

program Project1;

{$APPTYPE CONSOLE}

uses
  windows;

var
hFile:DWORD;
OFS: OFSTRUCT;
label err;
begin
hFile:=CreateFile('fsg.exe',GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,0);
If hFile = INVALID_HANDLE_VALUE
Then goto err;
hFile:= OpenFile('fsg.exe', OFS, OF_READWRITE);
  if hFile = INVALID_HANDLE_VALUE then
  halt;
Writeln('All OK!');
readln;
halt;
err:
Writeln('Something wrong!');
readln;
end.

 

ЖЖжете.
The OpenFile function creates, opens, reopens, or deletes a file.

This function is provided for compatibility with 16-bit versions of Windows. In particular, the OpenFile function cannot open a named pipe. Win32-based applications should use the CreateFile function.
OpenFile устаревший аналог CreateFile
GENERIC_WRITE - какраз может послать тебя нах есл ифайл уже открыт монопольно на запись. Так что лучше всего просто напросто свотреть возможность чтения.
И вообще Label - это жесть.
Да и закрывать файл не забывай

Если дело на то пошло то

Code:

program Project1;

{$APPTYPE CONSOLE}

uses
  windows;

var
 h:DWORD;
begin
h:=CreateFile('fsg.exe',GENERIC_READ, FILE_SHARE_READ,nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,0);
if h<>dword(-1) then
 begin
  Writeln('OK!');
  CloseHandle(h);
 end else Writeln('ERR!');
readln;
end.

 

А еще лучше тогда экспортировать NtCreateFile и RtlInitUnicodeString и InitializeObjectAttributes из ntdll.dll и почти напрямую делать открытие файла ) *CRAZY*

 

для начала уважай собеседников и переведи все на чистый русский язык, а потом уже проси о помощи

 

Как можно в записать такой ряд в Дэлфи?
Помогите, нужно срочно

 

вот... мутка такая...

есть сторонний софт и в нем есть много конфигов...
тоесть в программе пользователь выбирает конфиг 5 например и программа обрабатывает файл например
C:\5.cfg

тоесть разные типо настройки в разных конфигах...

вот сижу и думаю.... как узнать что он использует именно этот конфиг.. из своей проги конечно...

мысль пока о поиске открытых файлах и хендлов в определенном целевом процесе...


но осилить такое я кнешно не могу... нашел примеры которые все открытые файлы у всех процесов выводят...
http://forum.sources.ru/index.php?showtopi...0&#entry1242689
но он работает блин ооочень медленно пока все переберет и тд...

может кто нить поделиться кодом как это сделать мне ??...

крайне надо .... какой день уже туплю..=((

 

только не забудь что sin(x) работает с радианами а не с градусами)