ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
22.05.2007, 12:05
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Качнуть дельфу... LOL *ROFL*
На борланде поищи. Вес гдето около 350 метров.
Блин это прям как на башорге:
<+Dr3d> Где скачать МСДН
<@sanniassin> в инторнете
<+Dr3d> Дайте точную ссылку, а то трафика жалко
|
|
|
22.05.2007, 12:25
|
|
Участник форума
Регистрация: 01.02.2005
Сообщений: 233
Провел на форуме:
748321
Репутация:
112
|
|
смысл такой, нужно написать чекер акков на валид, конект идет через Https, если есть примеры то поделитесь
Последний раз редактировалось AHTOLLlKA; 22.05.2007 в 12:47..
|
|
|
|
22.05.2007, 16:26
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
Сообщение от slesh
На борланде поищи. Вес гдето около 350 метров.
на борланде она случайно не триальная? 
в любом случае, вот: (delphi 7)
часть 1 101376 KB
часть 2 21811 KB
в сумме 120 метров =)
пасс на оба архива http://netz.ru
когда-то давно нашел на каком-то сайте=)
Последний раз редактировалось Piflit; 22.05.2007 в 22:44..
|
|
|
|
22.05.2007, 22:06
|
|
Новичок
Регистрация: 14.05.2007
Сообщений: 8
Провел на форуме:
16256
Репутация:
1
|
|
Ребята, такой, наверное, самый распространенный вопрос, ответ на который я никак не получу.. уверен, здесь толковых и знающих людей много, поможете..
В общем, суть проста.. моя программа использует нестандартные шрифты.. я реализовал на данном этапе только то, что встроил их в setup к программе, таким образом они добавляются в папку Windows\Fonts
Я знаю, что шрифты можно "зашивать" внутрь программы, таким образом установка шрифтов в систему не требуется, отображаются же они в программе корректно. Как это реализовать в делфи?
Подобный вопрос у меня о курсорах. Как использовать в моей программе курсоры, независящие от системы?.. то есть какие-нибудь свои.. надеюсь, что можно использовать не только cur, но и ani ??
Спасибо всем, кто откликнется!
Ник Ример
|
|
|
|
22.05.2007, 23:08
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 AHTOLLlKA - могу дасть дать исходник одного чекера. Челал ок номера кредиток. Всё написано на дельфе. Юзается библиотека виндовая, та через которую осел юзает SSL.
Правдо однопоточная система. Но переделать сможешь. Если что, то стучись в АСЮ.
----------
2 Astral_Master
1) Курсоры:
Код:
const
MyConst = 100;
.-.-.-.-.-.
Screen.Cursors[MyConst] := LoadCursor(hInstance,'MYCURSOR');
Screen.Cursor := MyConst;
MYCURSOR - имя курсора в ресурсах.
2) Вот пример работы со шрифтом:
Код:
// При создании фотрмы добавить новый шрифт, что хранится в ресурсах
procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'MY_FONT', Pchar('ANYOL1'));
Res.SavetoFile('MYFONT.ttf');
Res.Free;
AddFontResource(PChar('MYFONT.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;
// Испольхзование
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Font.Name := 'MYFONT';
end;
// Удаление
procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource(PChar("MYFONT.ttf"))
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;
|
|
|
|
22.05.2007, 23:22
|
|
Новичок
Регистрация: 14.05.2007
Сообщений: 8
Провел на форуме:
16256
Репутация:
1
|
|
Спасибо большое, завтра попробую обязательно, а то уже в сон клонит..
У меня теперь вопрос другого плана.. а как пользоваться этими ресурсами? В смысле, как подключить их к юниту делфи и использовать после этого внутри.. знаю стандартную утилиту для создания ресурсного файла.. но, кажется, он не поддерживает закачку шрифтов.. и курсоры только cur.. да и более того, не более 256 цветов для любой картинки... нет ли инструмента помощнее?
Спасибо откликнувшемуся! Простите, что плюсы не ставлю, так репутация нулевая.. не за что мне ее повышать...
Ник Ример
|
|
|
|
22.05.2007, 23:55
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 Astral_Master
ДЫк тебе нужно подрубить к проекту файл с ресурсами.
Мож прям a форму дабавить {$R myres.res}
Ну файлы с ресурсами можешь создать с какомнить левом редакторе ресурсов.
К примеру можно заюзать от VC++
Или еще лучше - юзай RC файлы.
т.е. это файл в котором описываются ресурсы. потом его можно добавить к ресурсу.
Мож вырозился не так. Но суть такова. В этом файле прописываешь тип ресурса и его имя и файл от куда берутся данные.
К примеру чтобы грузануть звук. ТО файл выглядет так:
-.-.-.-.
110 WAVE sound1.wav
120 WAVE sound2.wav
-.-.-.-.
Для включения ширта юзай вот такую вот вешь:
MY_FONT ANYOL1 "Bauhs93.ttf"
Имя, Тип ресурса, файл где хранятся данные.
Вот так вот можно засунуть JPEG:
1 RCDATA "MyPic.jpg"
И тогда чтобы юзать его. Нужно:
Код:
uses jpeg;
-.-.-.-.-
procedure LoadJPEGfromEXE;
var
MyJPG: TJPEGImage; // Объект - JPEG
ResStream: TResourceStream; // Объект - поток ресурсов
begin
try
MyJPG := TJPEGImage.Create;
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
MyJPG.LoadFromStream(ResStream);
Canvas.Draw(12, 12, MyJPG);
finally
MyJPG.Free;
ResStream.Free;
end;
end; // procedure
|
|
|
|
22.05.2007, 23:57
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Вот пример статьи как юзать ресурсы:
У меня имеется приблизительно 36 маленьких растровых изображений, которые я хочу сохранить в файле и затем прилинковать его к exe. Как мне поместить их в res-файл?
Самый простой путь - создать файл с именем "BITMAPS.RC" и поместить в него список ваших .BMP-файлов:
BMAP1 BITMAP BMAP1.BMP
BMAP2 BITMAP BMAP2.BMP
CLOCK BITMAP CLOCK.BMP
DBLCK BITMAP DBLCK.BMP
DELOK BITMAP DELOK.BMP
LUPE BITMAP LUPE.BMP
OK BITMAP OK.BMP
TIMEEDIT BITMAP TIMEEDIT.BMP
Затем загрузите Resource Workshop (RW) и выберите пункт меню File|Project Open. В выпадающем списке "File Type" (тип файла) выберите RC-Resource Script и откройте файл, который вы только что создали. После того, как RW загрузит ваш файл, выберите пункт меню File|Project save as. Выберите объект RES-Resource из выпадающего списка "File Type" (тип файла). В поле редактирования "New File name" задайте имя нового файла, скажем, BITMAPS.RES. Нажмите OK. Теперь у вас есть файл ресурса. В вашем модуле Delphi добавьте после строки {$R *.RES} строку {$R BITMAPS.RES}. После компиляции вы получите exe-файл с скомпилированными ресурсами. Для получения доступа к ресурсам во время выполнения программы нужно сделать следующее:
myImage.Picture.Bitmap.Handle := LoadBitmap(HInstance, 'TIMEEDIT');
В качестве предостережения: убедитесь в том, что имена (в самой левой колонке) изображений в .RC файле написаны в верхнем регистре, при вызове также необходимо писать их имена в верхнем регистре.
|
|
|
|
23.05.2007, 06:55
|
|
Новичок
Регистрация: 14.05.2007
Сообщений: 8
Провел на форуме:
16256
Репутация:
1
|
|
Спасибо огромное! Буду сегодня пробовать.. ну вы ребята и умные, я просто фигею
А может кто из вас знает, как работать с архивами из приложения? нередки случаи использования экзешником какого-нибудь ресурса, изначально запакованного в какой-нибудь, например, dat файл, который по сути является простым архивом. Бывают и не стандартные архивные, но тоже компресованные форматы.. как возможно и возможно ли использование таких ресурсов?
Ник Ример |
|
|
|
23.05.2007, 09:27
|
|
Новичок
Регистрация: 14.05.2007
Сообщений: 8
Провел на форуме:
16256
Репутация:
1
|
|
Пробовал найти Resource Workshop, занятие неблагодарное.. можно сказать, что успехом поиски не увенчались, или же не совсем. Я нашел программу версии 4.5, но она, кажися, 16-тиразрядная. При запуске под виндой получаю warning-сообщение типа: "Не найден файл D:\ResWorkshop\workshop.exe или один из его компонентов. Проверьте правильность бла-бла-бла..." с заголовком "Не удается запустить 16-разрядную программу для Wi" (наверное, для Windows?! ). Как заставить его работать, если у меня Win2k SP4?? Ставить Borland C++ ради одного малюсенького приложения как-то влом, да и к тому же я потерял где-то диск..
Хм.. я еще не задолбал вопросами?
P.S. я там на 8-й еще немножко написал.. 
Последний раз редактировалось Astral_Master; 23.05.2007 в 09:30..
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Комбинированный вид