Delphi [Архив] - Forum ЧЕБNET

DRUFEL

26.11.2004, 12:05

Как узнать список файлов в катологе с помощью Delphi

GrISeR

02.12.2004, 00:57

Есть функции:
FindFirst
FindNext
FindClose

Destroyingrief

23.07.2005, 18:09

А что, больше никого и не интересуют взможности Делфи :'(
Например, расскажте про работу с потоками 8)

sans

04.10.2005, 10:50

у мня такая проблема
прога чтоб закинуть текст в картинку, и апосля вытащить его оттуда
перевожу все символы текста в ASCCI код
загружаю картинку в bitmap, считываю ее попиксельно
и к значению каждаго пиксела прибавляю ASCCI, и апасля рисую уже измененную и сохраняю ее
даже невооруженным глазом видно если поставить рядом две картинки что одна из них немного отличается
потом когда пытаюсь вытащиьт текст из картинки, опять считываю навую картинку попиксильно, и выдается значенмия что пиксель не изменен, то есть как будто в него ничего не кидали
пробывал в абсолютно белую картинку кидать, сохраняеш уже измененную картинку, кое где появляются черные пятна, а потом считывает, так он выдает что там все белое

War

08.10.2005, 22:43

у мня такая проблема
прога чтоб закинуть текст в картинку, и апосля вытащить его оттуда
перевожу все символы текста в ASCCI код
загружаю картинку в bitmap, считываю ее попиксельно
и к значению каждаго пиксела прибавляю ASCCI, и апасля рисую уже измененную и сохраняю ее
даже невооруженным глазом видно если поставить рядом две картинки что одна из них немного отличается
потом когда пытаюсь вытащиьт текст из картинки, опять считываю навую картинку попиксильно, и выдается значенмия что пиксель не изменен, то есть как будто в него ничего не кидали
пробывал в абсолютно белую картинку кидать, сохраняеш уже измененную картинку, кое где появляются черные пятна, а потом считывает, так он выдает что там все белое

Попробуй создать временный холст:

function XXX(Source: TBitmap; Text: string): TBitmap;
var tempC: TBitmap;
A, B, pos: integer;
begin
pos:=0;
tempC:=TBitmap.Create;
tempC.Width:=Source.Width;
tempC.Height:=Source.Height;
for B:=0 to Source.Height do
for A:=0 to Source.Width do
begin
tempC.Canvas.Pixels[A,B]:=Source.Canvas.Pixels[A,B]+Char(Text[pos]);
inc(pos);
end;
Result:=tempC;
end;

возможно возникнут проблемы с Result:=tempC, так что если чо - экспериментируй...

Destroyingrief

05.12.2005, 03:57

Может будем выкладывать в эту тему ("Delphi") *свои вопросы , а также давать ответы нуждающимся?Предлагаю превратить эту тему в форум подобно "Делфимастеровскому". * * * * * * * * * * * * * * * * * * *P.S. Надеюсь, народ не только в доту режется и порнуху смотрит ;) * * * * * * * * * * *

sans

08.12.2005, 05:27

народ кто нить знает как считать информацию с загрузочного сектора HDD, то беж все то что в нем записано

lamo1

08.12.2005, 19:45

Как узнать список файлов в катологе с помощью Delphi

реализуешь цикл с этими функциями...почитай хелп....там пример даже вроде есть...

lamo1

08.12.2005, 19:48

народ кто нить знает как считать информацию с загрузочного сектора HDD, то беж все то что в нем записано

MODEL TINY
STACK 100h
DATASEG
data1 DD 512
CODESEG
start:
mov ax,@data
mov ds,ax

mov al,3 ; читаем загрузочный сектор диска С
mov dx,0
mov cx,1
mov bx,offset data1;
int 25h

mov bx,1 ; показываем на экране
mov cx,512
mov dx,offset data1
mov ah,40h
int 21h

mov ah,04Ch
mov al,1h
int 21h
end start

на ассемблере это делается так.
Источник: www.firststeps.ru

AZ4ZeL

21.12.2005, 21:22

на ассемблере это делается так.
Источник: www.firststeps.ru

риспект, что хоть кто-то пишет на асме

AZ4ZeL

21.12.2005, 21:56

у мня такая проблема прога чтоб закинуть текст в картинку, и апосля вытащить его оттуда перевожу все символы текста в ASCCI код загружаю картинку в bitmap, считываю ее попиксельно и к значению каждаго пиксела прибавляю ASCCI, и апасля рисую уже измененную и сохраняю ее даже невооруженным глазом видно если поставить рядом две картинки что одна из них немного отличается потом когда пытаюсь вытащиьт текст из картинки, опять считываю навую картинку попиксильно, и выдается значенмия что пиксель не изменен, то есть как будто в него ничего не кидали пробывал в абсолютно белую картинку кидать, сохраняеш уже измененную картинку, кое где появляются черные пятна, а потом считывает, так он выдает что там все белое 

хм... мне немного не нравиться метот "..к значению каждаго пиксела прибавляю.."
В классических трудах по стенографии предлагаются более качественные методы, дающие гораздо менее заметные искажения изображения.

Рассмотрим простой пример включения сообщения в файл BMP формата, для чего нам понадобится фотография вашей тёщи и сообщение. Предполагаем, что фотография имеет размер 200x400 пикселей.

В этом формате каждый пиксель представляется байтом, который, как известно, состоит из восьми битов (например, 00110101), изображение воссоздаётся из матрицы, содержащей все эти пиксели (рекомендуется, чтобы не использовалось RLE-сжатие).

Мы можем представить, что часть матрицы выглядить следующим образом:

...
00010101 10100101 01010101 00110101 01110101 01000010 01010011 01101010
00001011 01010101 10100101 01010111 11010111 10000101 01010010 01010010
10101001 10101011 00001001 10100100 00010001 10100101 00010101 10100101
...

Каждый байт означает цвет, и в чём же трюк?... Мы знаем, что если мы чуть-чуть подправим цвета, то в результате изменение изображения не будет заметно. Также мы знаем, что изменение самого младшего бита почти не скажется на получившемся в результате изображении...
Возмем слово "SET" , поэтому для того, чтобы сделать задуманное нами, необходимо три октета, по одному на каждую букву. В шестнадцатиричной системе последние выглядят так - 73 65 74, а в двоичной так - 01001001 01000001 01001010.

Таким образом, изображение меняется следующим образом (изменяется последний бит каждого байта):

00010100 10100101 01010100 00110100 01110101 01000010 01010010 01101011
- - - - - - - -
00001010 01010101 10100100 01010110 11010110 10000100 01010010 01010011
- - - - - - - -
10101000 10101011 00001000 10100100 00010001 10100100 00010101 10100100
- - - - - - - -
...

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

А если тупо прибавлять, то есть много забавных моментов, таких как переполнение бай-диапазона.
если у тебя Red-состовляющая цвета равно 240, то после прибавления кода символа того же нуля, мы получаем 32 Red-составляющую...
"на глаз" это заметно сразу...

http://www.jjtc.com/Steganography/ --> довольно хороший сайт.
http://www.StegoArchive.com --> довольно полный сайт.
http://www.privacyexposed.com/resources/steganog.htm --> много ссылок.

Также можно попробовать воспользоваться ответами, которые даёт по этой теме Google. =))))

P.S. никто не заметил... не ASCCI, а ASCII =))))

sans

04.01.2006, 18:15

проблема решена
сипасибо

NEOmyf

18.01.2006, 13:59

нужен серийник для дэлфи 6.0 7.0 срочно (на фтп смотрел там вроде без серйника ) напишите , а то затра курсовую сдавать плз :'(

1

18.01.2006, 18:06

нужен серийник для дэлфи 6.0 7.0 *срочно (на фтп смотрел там вроде без серйника ) напишите , а то затра курсовую сдавать плз :'(
ftp://rygred.cheb.ru/Upload/Delphi7.0keygen/keygen.exe

kost

19.01.2006, 01:33

вчера 7-ю версию установил!!! Делфи - респект!!!!

sans

31.01.2006, 05:43

кстати народ
кто нить в курсе почему в Делфе если смотреть видио через MediaPlayer некоторые фильмы тормозит а некоторые нет

kost

31.01.2006, 22:42

кстати народ
кто нить в курсе почему в Делфе если смотреть видио через MediaPlayer некоторые фильмы тормозит а некоторые нет
Делфя использует программное обеспечение компьютера: т.е. кодеки, драйвера видеокарты и пр.
Помимио кодеков, решающим фактором бывает сама операционка(да и сама версия Делфи). Видео у компьютера должно быть не меньше 16 Мб.

CheGevara

05.03.2006, 01:55

Кто знает название функции, проверяющей входит или нет точка(TPoint) в заданный прямоугольник(TRect) ???
Заранее благодарен.

Gauntlet

05.03.2006, 14:55

Кто знает название функции, проверяющей входит или нет точка(TPoint) в заданный прямоугольник(TRect) ???
Заранее благодарен.
Функция называется "сделай сам"
function IsPointInRect(rect:TRect;point:TPoint):boolean;
begin
if (rect.top<=point.y) and (rect.left<=point.x) and (rect.bottom>=point.y) and (rect.right>=point.x)
then result:=true else result:=false;
end;

Destroyingrief

11.03.2006, 03:05

Кстати, почему при установке 7-ой Делфи с фтп более 3000 раз вылетает сообщение об ошибке копирования файла?

kost

11.03.2006, 04:20

качай у меня...на чебнете - ацтой версия

AlGor

11.03.2006, 19:11

Кто знает, где найти примеры программ Delphi с исходниками? Очень нужно.

Bodrox_aki_NeSe

14.03.2006, 13:39

Кто знает, где найти примеры программ Delphi с исходниками? Очень нужно.

Есть такой форум - forum.vingrad.ru,
а мини MSDN для Delphi - Delphi Russian Knowledge Base можна взять у меня...
Или в Uploads: ftp://10.0.16.5/Upload/new_soft/DRKB - Delphi Russian Knowledge Base/drkb23.chm

CheGevara

18.03.2006, 02:19

Задачка такая:
Хочу получить программный доступ к компоненту ДЦ++, в котором выскакивают все сообщения (если бы StrongDC писался бы в Делфя я бы сказал объект класса Tmemo)...

Пишу MemoH:=FindWindowEx(H, 0, ClassName, nil) ;

Что мне писать заместо ClassName ???
И попутно как выудить оттуда текст либо перехватить все Message туда ???

З.Ы. ClassName='STATIC' пробывал -- не катит.

Bodrox_aki_NeSe

18.03.2006, 05:10

да, жалко не на Дельфе... Скомпилить исходники получилось бы сразу... А так сотни 3 ошибок... В Дельфе исходники могут не пойти тока или если битые, или если компонентов нету... А на сях вечно каких-нить файлов не хватает в большом количестве... :( По крайней мере на свежеустановленной VS2003 не поехало...

Pl4g

21.04.2006, 16:42

А чем вообще отличаются версии Delphi 7 и Delphi 2005 (или 2006). Посоветуйте, стоит ли переходить с седьмой версии на более старшие?

Gauntlet

21.04.2006, 18:21

Задачка такая:
Хочу получить программный доступ к компоненту ДЦ++, в котором выскакивают все сообщения (если бы StrongDC писался бы в Делфя я бы сказал объект класса Tmemo)...

Пишу MemoH:=FindWindowEx(H, 0, ClassName, nil) ;

Что мне писать заместо ClassName ???
И попутно как выудить оттуда текст либо перехватить все Message туда ???

З.Ы. ClassName='STATIC' пробывал -- не катит.
WinSight32 из стандарной поставки дельфей тебе в помощь

Gauntlet

21.04.2006, 18:22

А чем вообще отличаются версии Delphi 7 и Delphi 2005 (или 2006). Посоветуйте, стоит ли переходить с седьмой версии на более старшие?
Дельфи 8 под .Net со всеми вытекающими...

mrScalder

22.04.2006, 19:02

Я конечно могу и ошибаться, но вроде под 8-кой можно и под Win32 писать.

Bodrox_aki_NeSe

24.04.2006, 11:27

Я конечно могу и ошибаться, но вроде под 8-кой можно и под Win32 писать.
И на 2005, и на 2006, если при установке указал...

Kemnep

18.05.2006, 10:31

Кто знает хорошие ссылки на статьи "как сделалть WebBrowser без компонента ActiveX TWebBrowser"

kost

18.05.2006, 13:23

Кто знает хорошие ссылки на статьи "как сделалть WebBrowser без компонента ActiveX TWebBrowser"
вотъ мы на лабах сделали:
ftp://rammstein.cheb.ru/upload/Delphi/
там увидишь SFX-архив

AndrewShmel

19.05.2006, 02:34

Кто-нить Лазарус уже ковырял?

kost

19.05.2006, 19:20

Кто-нить Лазарус уже ковырял?
это шо за зверь такой? :-[

AndrewShmel

20.05.2006, 00:43

Кто-нить Лазарус уже ковырял?
это шо за зверь такой? :-[
ээээ.. как бы обозвать-то... Visual FreePascal... типа того.. :)

Bodrox_aki_NeSe

10.06.2006, 20:42

Может офф. Книга по Delphi 7.0 есть у Архангельского. Кто-нить её полные данные сказать могёт? Изд., страниц, год издания.

SiMM

11.06.2006, 01:32

Может офф. Книга по Delphi 7.0 есть у Архангельского. Кто-нить её полные данные сказать могёт? Изд., страниц, год издания.
http://www.ozon.ru/context/detail/id/1469020/
http://www.ozon.ru/context/detail/id/1393127/
PS: список литератруры к диплому ваяешь? ;)

Zigmuntfreyd

14.08.2006, 22:38

Какя функция возвращает разрешение экрана (например чтоб было x:=1024 y:=768)

kost

15.08.2006, 00:36

готово:)
procedure TForm1.Button1Click(Sender: TObject);
var
DD: IDirectDraw;
DD4: IDirectDraw4;
hr: HRESULT;
begin
hr := DirectDrawCreate(nil, DD, nil);
if (hr = DD_OK) then
begin
DD.QueryInterface(IID_IDirectDraw4, DD4);
DD4.SetCooperativeLevel(Self.Handle, DDSCL_EXCLUSIVE or DDSCL_FULLSCREEN);
DD4.SetDisplayMode(1024, 768, 8, 0, 0);
//DD4.RestoreDisplayMode;
end;
end;

{то же используя компонент DelphiX}

procedure TForm1.Button1Click(Sender: TObject);
begin
DXDraw1.Display.Width := 1024;
DXDraw1.Display.Height := 768;
DXDraw1.Display.BitCount := 8;
DXDraw1.Options := DXDraw1.Options + [doFullScreen];
DXDraw1.Initialize;
end;

Pl4g

15.08.2006, 11:29

готово:)
procedure TForm1.Button1Click(Sender: TObject);
var
*DD: IDirectDraw;
*DD4: IDirectDraw4;
*hr: HRESULT;
begin
*hr := DirectDrawCreate(nil, DD, nil);
*if (hr = DD_OK) then
*begin
* *DD.QueryInterface(IID_IDirectDraw4, DD4);
* *DD4.SetCooperativeLevel(Self.Handle, DDSCL_EXCLUSIVE or DDSCL_FULLSCREEN);
* *DD4.SetDisplayMode(1024, 768, 8, 0, 0);
* *//DD4.RestoreDisplayMode;
*end;
end;

{то же используя компонент DelphiX} *

procedure TForm1.Button1Click(Sender: TObject);
begin
*DXDraw1.Display.Width := 1024;
*DXDraw1.Display.Height := 768;
*DXDraw1.Display.BitCount := 8;
*DXDraw1.Options := DXDraw1.Options + [doFullScreen];
*DXDraw1.Initialize;
end;

По моему эта функция ставит указанное разрешение экрана, а разве нужно не просто показать, какое сейчас разрешение? :-? Если нужно просто показать, какое сейчас разрешение используй это:
Edit1.Text:=IntToStr(Screen.Width)+' '+IntToStr(Screen.Height);

kost

15.08.2006, 14:55

По моему эта функция ставит указанное разрешение экрана
именно!
а разве нужно не просто показать, какое сейчас разрешение?
Зигмунт пишет:
Какя функция возвращает разрешение экрана (например чтоб было x:=1024 y:=768)

Zigmuntfreyd

15.08.2006, 18:32

Спасибо! обоим! далее вопрос
Можно ли воспользоватся загруженной иконкой (*.ico) которую загрузил в Project-options-Application-Load Icon. Тоесть для того чтобы она была в левом верхнем углу и картинкой exe файла!
вопрос: можно ли её использовать в обьекте Image или в каком нить другом для отображения в нужном месте формы, суть такова чтобы небыло приклепленного файла а компилированная прога имела тока один exe файл и от файла ico независила
ps и чтобы файл ресурсов тоже создавать ненадобыло

Pl4g

15.08.2006, 19:58

Спасибо! обоим! далее вопрос
Можно ли воспользоватся загруженной иконкой (*.ico) которую загрузил в Project-options-Application-Load Icon. Тоесть для того чтобы она была в левом верхнем углу и картинкой exe файла!
вопрос: можно ли её использовать в обьекте Image или в каком нить другом для отображения в нужном месте формы, суть такова чтобы небыло приклепленного файла а компилированная прога имела тока один exe файл и от файла ico независила
ps и чтобы файл ресурсов тоже создавать ненадобыло
Конечно!
Делаешь любую иконку значком exe-файла, как ты написал. Затем создаешь на форме объект Image1, и указываешь в совойстве Picture нужный ico-файл, компилируешь, и exe-файл не зависит от ico-файла.

Zigmuntfreyd

16.08.2006, 13:43

Далее:
Компанент MediaPlayer воспроизводит не все типы файлов, помоему у него нет кодеков типа DivX5, можно ли подключить к нему кодеки, если да то как, если нет то можно подключить их канить подругому? или модет он невидет эти файлы по какойнито другой причине???

Pl4g

16.08.2006, 15:03

Далее:
Компанент MediaPlayer воспроизводит не все типы файлов, помоему у него нет кодеков типа DivX5, можно ли подключить к нему кодеки, если да то как, если нет то можно подключить их канить подругому? или модет он невидет эти файлы по какойнито другой причине???
Попробовал написать кое-что вот, что получилось:
Создаешь Компонент MediaPlayer, Panel, OpenDialog и Button
with MediaPlayer1 do
begin
if Opendialog1.Execute then
FileName:=OpenDialog1.FileName;
open;
Display:=Panel1;
DisplayRect:=Panel1.ClientRect;
play;
end;

Zigmuntfreyd

16.08.2006, 18:55

Далее:
Компанент MediaPlayer воспроизводит не все типы файлов, помоему у него нет кодеков типа DivX5, можно ли подключить к нему кодеки, если да то как, если нет то можно подключить их канить подругому? или модет он невидет эти файлы по какойнито другой причине???
Попробовал написать кое-что вот, что получилось:
Создаешь Компонент MediaPlayer, Panel, OpenDialog и Button
with MediaPlayer1 do
*begin
*if Opendialog1.Execute then
* *FileName:=OpenDialog1.FileName;
*open;
*Display:=Panel1;
*DisplayRect:=Panel1.ClientRect;
*play;
end;
а поподробней...

Pl4g

16.08.2006, 19:36

И так вроде все подробно, в обработчике событий кнопки пишешь данный код и нажимаешь на нее, далее сам увидишь

Zigmuntfreyd

17.08.2006, 14:28

И так вроде все подробно, в обработчике событий кнопки пишешь данный код и нажимаешь на нее, далее сам увидишь
и.... *:-? этоже тожесамое.... ну открылся файл МедиоПлеером...он и раньше открывался, а которые раньше неоткрывались они и сейчас неоткрываются... кодеки то всеравно неподключенны
Так че ктонить знает как кодеки подключить? или почему происходит такая беда, что MediaPlayer открывает не все файлы?

Pl4g

17.08.2006, 21:40

И так вроде все подробно, в обработчике событий кнопки пишешь данный код и нажимаешь на нее, далее сам увидишь
и.... *:-? этоже тожесамое.... ну открылся файл МедиоПлеером...он и раньше открывался, а которые раньше неоткрывались они и сейчас неоткрываются... кодеки то всеравно неподключенны
Так че ктонить знает как кодеки подключить? или почему происходит такая беда, что MediaPlayer открывает не все файлы?

Значит DLL-ки надо подрубать, от кодеков. В них должны содержаться все функции для воспроизведения видео.

GreekMan

28.08.2006, 15:47

народ у нас в 3 лицее информатик псих.....кто нибудь может помочь в делфи??там проги писать....

kost

28.08.2006, 15:55

народ у нас в 3 лицее информатик псих.....кто нибудь может помочь в делфи??там проги писать....
есть неплохая книжечка: ftp://10.0.16.5/Upload/pub/kost/

Zigmuntfreyd

08.09.2006, 18:15

еще вопросик в процедуре: procedure TForm1.FormKeyDown
как вернуть значение нажатой клавишы тоесть например a:='q' или a:=#13;

Bodrox_aki_NeSe

11.09.2006, 11:40

народ у нас в 3 лицее информатик псих.....кто нибудь может помочь в делфи??там проги писать....
Могу. Моё время только стоит денег.

еще вопросик в процедуре: procedure TForm1.FormKeyDown
как вернуть значение нажатой клавишы тоесть например a:='q' или a:=#13;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=13 then form1.Caption:='Enter';
end;
По-твоему, что за переменная Key?

GreekMan

21.09.2006, 20:02

[quote author=GreekMan link=1101456301/40#49 date=1156762075]народ у нас в 3 лицее информатик псих.....кто нибудь может помочь в делфи??там проги писать....
Могу. Моё время только стоит денег.
За деньги я и сам башку поломаю:) :) :) :)Вроде разобрался! Дэлфи классная вешь!

Destroyingrief

24.09.2006, 18:08

Дэлфи классная вешь!
ДЕЛФИ-РУЛЁЗ!!!!!!!!!!

А что это вы там пишете ?Может, "калькуляторы" всякие ?А !? ;)

GreekMan

01.10.2006, 00:09

Дэлфи классная вешь!
ДЕЛФИ-РУЛЁЗ!!!!!!!!!!

А что это вы там пишете ?Может, "калькуляторы" всякие ?А !? ;)

На Уроке уже калькуляторы писали....Скоро сказал препод нам будет ху*во...не знай..посморим кому из нас будет....::)::)::)::)

Zigmuntfreyd

08.12.2006, 15:00

такс... очень интересно... как сделать чтобы в компилированном exe файле делфи содержались непипизированные файлы, то есть чтото вроде SFX архива в rar'е

Zigmuntfreyd

11.12.2006, 19:27

ладно тогда попроще вопрос... как обратится к командной строке... тоесть иметь возможность писать тамошние команды типа: copy, rename итд ипт. И еще помоему в 9х command.com а в NT cmd. В чем разнища. Тоесть если обращатся к cmd в 9х непркатит?

SHT

06.01.2007, 03:13

Zigmuntfreyd что хочешь, не врубась.
Cоздай bat файл с нужными командами, а потом его можно переделать в exe.

Zigmuntfreyd

10.01.2007, 18:58

Zigmuntfreyd что хочешь, не врубась.
Cоздай bat файл с нужными командами, а потом его можно переделать в exe.

неее это не то, мне нужны + функции делфи, компилить бат в ехе непокатити! как обращатся из делфи???

и все тоже вопрос: как сделать чтобы в компилированном exe файле делфи содержались непипизированные файлы, то есть чтото вроде SFX архива в rar'е

help me!

S_s

11.01.2007, 00:30

держать текст батника в строке, при выполнении проги создавать батник потом запускать его 8-) то бишь пишешь copy 1 2, генерируется батник с текстом: copy 1 2 , потом запускается, на экране ты видишь всплывает черное окошко что типа скопировалось
сэ эф икс: точно так же, если хочешь один набор файлов держать в экзешнике то просто все их содержимое пихаешь в строки потом при выполнении создаешь файлики и вписываешь в них содержимое строк
а лучше напиши зачем оно все тебе надо

Zigmuntfreyd

11.01.2007, 00:52

держать текст батника в строке, при выполнении проги создавать батник потом запускать его *8-) то бишь пишешь copy 1 2, генерируется батник с текстом: copy 1 2 *, *потом запускается, на экране ты видишь всплывает черное окошко что типа скопировалось
сэ эф икс: точно так же, если хочешь один набор файлов держать в экзешнике то просто все их содержимое пихаешь в строки потом при выполнении создаешь файлики и вписываешь в них содержимое строк
а лучше напиши зачем оно все тебе надо
с создаванием бат файлов уже давно догадался, эт все понятно, мне нужно из делфи функцию!!! гораздо удобней

а по второму вопросу я же написал что файлы нетипизированые! делфя ругается на машинный код! некатит! :(
а нужно все для общего развития не всеже писать проги по вычислению ну скажем км\ч или калькулятора :)

SHT

11.01.2007, 17:05

Zigmuntfreyd,
как создавать res - файлы знаешь?
помоему это то что тебе нужно, в плане нетипизированных файлов.

Volmond

14.01.2007, 03:00

Народ, где можно найти доходчивый самоучитель по Delphi GLScene?

Radomir

15.01.2007, 02:34

Народ, где можно найти доходчивый самоучитель по Delphi GLScene?

http://glscene.ru/index.php
может там? )
а вобще, яндекс.
ни одного источника, кроме как html-ресурса я не видел.

Volmond

21.01.2007, 03:53

Блин, у меня такая вот проблема, срочно надо написать прогу(с исходником), чтобы она могла читать и записывать *.TXT файлы! Заранее спасибо!

Pl4g

21.01.2007, 13:07

Блин, у меня такая вот проблема, срочно надо написать прогу(с исходником), чтобы она могла читать и записывать *.TXT файлы! Заранее спасибо!
Да этож проще некуда *;): вот сюда залил найденнный в инете 100 лет назад исходник: ftp://10.0.16.5/Upload/new_soft/_#Programming#_/Исходники Delphi/Text_Editor/

Volmond

22.01.2007, 15:05

PL@G спасибо, а теперь меня опять мучает вопрос, как можно прочитать координаты курсора мыши и записать их в переменную?

Destroyingrief

22.01.2007, 21:19

PL@G спасибо, а теперь меня опять мучает вопрос, как можно прочитать координаты курсора мыши и записать их в переменную?

Смотря в каком компонете ты их отлавливаешь :)

BIMMER

29.01.2007, 20:09

я знаю, что если прописать в OnClick => ShowModal... , то нажав на эту кнопку открывается новый Form
но у меня возник вопрос: что надо прописать в OnClick что бы нажав на кнопку новый Form открывался в этом же окне ??? :-[ [smiley=blush.gif] [smiley=blush2.gif] и что еще надо куда добавлять :-?, подскажите плиз

SHT

30.01.2007, 04:03

я знаю, что если прописать в OnClick => ShowModal... , то нажав на эту кнопку открывается новый Form
но у меня возник вопрос: что надо прописать в OnClick что бы нажав на кнопку новый Form открывался в этом же окне ??? :-[ [smiley=blush.gif] [smiley=blush2.gif] и что еще надо куда добавлять :-?, подскажите плиз
Ты иммешь ввиду как создать дочернею форму.
Если да то
*свойсво главной формы TFormStyle = fsMDIForm
*свойсво дочерней TFormStyle = fsMDIChild

D@NIL@

02.03.2007, 20:25

[quote author=AZ4ZeL link=1101456301/0#10 date=1135187776][quote author=sans link=1101456301/0#3 date=1128405016]

http://www.jjtc.com/Steganography/ --> довольно хороший сайт.
http://www.StegoArchive.com --> довольно полный сайт.
http://www.privacyexposed.com/resources/steganog.htm --> много ссылок.

может и хорошие...но чо делать если с английским большие проблемы?!?!??!

Mike10581

07.03.2007, 16:11

Есть такое задание:

Создать программу, выполняющую следующие действия:
1. Считывание файла формата BMP.
2. Показывает размер и цветовую гамму считанного изображения.
3. Выполняет следующие действия - заменить белый цвет на жёлтый.
4. Записывает изменённый файл в другой файл.

Подскажите пожалуйста:

1. Как попиксельно читать BMP картинку (желательно подробно по шагам, или где можно почитать)?
2. Что понимать под цветовой гаммой считанного изображения?
3. Где можно узнать в каком диапазоне в цифре цвет считается желтым (от бледно желтого, до ярко-насыщенного).

Заранее огромное спасибо.

ZeStas

07.03.2007, 22:19

Есть такое задание:

Создать программу, выполняющую следующие действия:
1. Считывание файла формата BMP.
2. Показывает размер и цветовую гамму считанного изображения.
3. Выполняет следующие действия - заменить белый цвет на жёлтый.
4. Записывает изменённый файл в другой файл.

Подскажите пожалуйста:

1. Как попиксельно читать BMP картинку (желательно подробно по шагам, или где можно почитать)?
2. Что понимать под цветовой гаммой считанного изображения?
3. Где можно узнать в каком диапазоне в цифре цвет считается желтым (от бледно желтого, до ярко-насыщенного).

Заранее огромное спасибо.

Вообщем, проще всего обрабатывать картинку попиксельно так:

1) Создаешь объект класса TPicture
2) Используешь процедуру LoadFromFile(const Filename: string), которая загружает картинку в свойство Graphic.
3) Что бы получить цвет отдельного пикселя нужно обратиться сначала к свойству Canvas свойства Graphic, а затем к свойству Pixels[X, Y: Integer]: TColor, которое возвращает цвет пикселя с координатами X и Y.
Общая конструкция твким образом будет иметь вид
ИмяОбъекта.Graphic.Canvas.Pixels[X, Y]
Размеры картинки можно получить из свойств Height и Width свойства Canvas.
Лучше всего работать с 24-битным изображением, что можно установить через свойство TPixelFormat:=pf24bit

Неудобство этого метода в том, что ты получаешь значение цвета в формате TColor. В принципе, если отнестись формально, то достаточно просто сравнивать значение каждого пикселя с константой clWhite и присваивать ему значение clYellow. Правда это сработает, пожалуй, только с файлами, нарисованными в Painte, так как совершенно не учитывает различные оттенки цветов. На лабораторку, думаю, хватит, а если хочешь большего, то придется повозиться с анализом цветов. Если нужно - спрашивай.

Mike10581

09.03.2007, 12:39

Огромное спасибо.

Будем пробовать.

Unloved_Etherway

04.04.2007, 17:21

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

D@NIL@

08.04.2007, 15:22

[quote author=AZ4ZeL link=1101456301/0#10 date=1135187776][quote author=sans link=1101456301/0#3 date=1128405016]

http://www.jjtc.com/Steganography/ --> довольно хороший сайт.
http://www.StegoArchive.com --> довольно полный сайт.
http://www.privacyexposed.com/resources/steganog.htm --> много ссылок.

может и хорошие...но чо делать если с английским большие проблемы?!?!??!

Что за фигня???Я этого не писал.....

AIIOCTOJI

12.04.2007, 12:52

;)

shups

22.04.2007, 01:51

помагите плиз!
есть несколько форматов караоке
но сводятся в миди
задание: из миди файла (файл караоке) вытащить слова которые в ней будут в виде текста
вся проблема в том что при открытии блакнотом там нет ни каких текстов песен (само собой это же миди) так как быть?
говорят надо dll'ку создать
подскажите по подробней пожалуйста!

BakS

22.04.2007, 11:59

помагите плиз!
есть несколько форматов караоке
но сводятся в миди
задание: из миди файла (файл караоке) вытащить слова которые в ней будут в виде текста
вся проблема в том что при открытии блакнотом там нет ни каких текстов песен (само собой это же миди) так как быть?
говорят надо dll'ку создать
подскажите по подробней пожалуйста!
Почти в любом караоке проигрывателе можно сохранить текст песни, пример - vanBasco's Karaoke Player ( *ftp://10.0.16.5/Upload/new_soft/_#MultiMedia#_/Караоке плеер/Karaoke/ *). Запускаешь песню и в окне со словами делаешь копировать (copy)
ps. никаким боком не относится к delphi

shups

23.04.2007, 12:04

помагите плиз!
есть несколько форматов караоке
но сводятся в миди
задание: из миди файла (файл караоке) вытащить слова которые в ней будут в виде текста
вся проблема в том что при открытии блакнотом там нет ни каких текстов песен (само собой это же миди) так как быть?
говорят надо dll'ку создать
подскажите по подробней пожалуйста!
Почти в любом караоке проигрывателе можно сохранить текст песни, пример - vanBasco's Karaoke Player ( *ftp://10.0.16.5/Upload/new_soft/_#MultiMedia#_/Караоке плеер/Karaoke/ *). Запускаешь песню и в окне со словами делаешь копировать (copy)
ps. никаким боком не относится к delphi
для дельфи!!!
так как надо написать прогу которая по введённым словам определяет в каком караоке-файле слова эти есть!
криво напечатал но наверно поймёте =)
если проще то по словам прога должна найти файл-караоке, не только показать его название, но и показать весь текс песни! прога нужна
имея 5000 песен-караоке очень тяжело будет каждую вручную пересохранять в виде текста =(
зы: но спс за совет =) можно попытаться написать скрипт на пересохранение караоке

S_s

23.04.2007, 15:40

ищи компоненту... или пиши парсер миди-но эт сложно..

D@NIL@

02.05.2007, 15:59

Помогите пож-та... Может есть у кого проги по рекурсиям.... на Делфи, в частности Дерево растущее вверх. Если есть то отпишите от куда можно скачать или как связаться....

Gauntlet

04.05.2007, 18:09

Помогите пож-та... Может есть у кого проги по рекурсиям.... на Делфи, в частности Дерево растущее вверх. Если есть то отпишите от куда можно скачать или как связаться....
Вообщето, так принято, все деревья растут вниз. Или я совсем отстал от жизни.

kolesik

04.05.2007, 20:23

Кто нибудь знает как сравнить два цвета в Delphi? это нужно для того чтобы упорядачить список цветов. Может у кого нить есть готовые решения.

spinpoint

30.05.2007, 20:18

Срочно ищется исходиник программы по шифрованию с помощью алгоритма RSA в делпхи, в нете везде одна и та же бита ссылка :(

Destroyingrief

02.06.2007, 22:19

Мдя...было дело- увлекался...
Но ничего не отсалось по -моему, кому-то отдал...
Помню только , что RSA-аббревиатура по именам создателей (Рон Ривест, Ади Шамир(!) , Лен Адлеман)-трех математиков из Америки.Придумано сиё ассиметричное шифрование было в 70-х годах, основанно на свойствах взамно простых чисел....

P.S. Там просто все, исходник ты и сам нацарапать сможешь, если найдешь наглядный примерчик(Мона в технических журнальчиках почитать). Так что сходи-ка, брат, в библиотеку-глядишь и знакомство новое заведешь ;)

KyMaHeK

09.06.2007, 15:12

Весь материал есть в электронным виде..... Нужно красиво оформить и вставить тесты .....Цена договорная...
Звоните 89196513392 Icq 426985996 mail Chillintano@mail.ru Денис

Destroyingrief

14.06.2007, 20:50

Весь материал есть в электронным виде..... Нужно красиво оформить и вставить тесты .....Цена договорная...
Звоните 89196513392 Icq 426985996 mail Chillintano@mail.ru Денис
Ну...эт даж не интересно....вот еслиб что-то написать... ::)

PS Эу! Шифровальщики-кодировщики, с RSA разобрались ?

Destroyingrief

24.06.2007, 18:54

Срочно ищется исходиник программы по шифрованию с помощью алгоритма RSA в делпхи, в нете везде одна и та же бита ссылка :(
Ну как, нашел или все еще в поиске ?
А то мне тоже заотелось пошифровать все и вся... :D

Clark

18.09.2007, 21:36

Есть ли версия Delphi, работающая под вистой?
Кто встречался?

Dredd

18.09.2007, 22:16

Есть ли версия Delphi, работающая под вистой?
Кто встречался?

Врядли.
Там наверняка стоит вижал бейсик. Он даже чем то лучше делфи