ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
03.03.2008, 18:56
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
Провел на форуме:
183980
Репутация:
50
|
|
ты имеешь в виду разное название файла? или просто разное содержание картинки?
|
|
|
03.03.2008, 19:13
|
|
Участник форума
Регистрация: 02.07.2007
Сообщений: 189
Провел на форуме:
1843300
Репутация:
212
|
|
Сообщение от dos999
ты имеешь в виду разное название файла? или просто разное содержание картинки?
Разные картинки. Например 1.jpg, 2.jpg и т.д
|
|
|
|
03.03.2008, 19:59
|
|
Участник форума
Регистрация: 03.01.2008
Сообщений: 104
Провел на форуме:
400001
Репутация:
111
|
|
Freedom скозалбы что пишешь регер))
Берёшь страничку, парсишь её, находишь линку на картинку, потом вытворяешь с ней примерно такой код:
http:=TIdHTTP.Create(nil);
msimg := TMemoryStream.Create;
try
http.Get('http://sie.net/kartinko.jpg', msimg);
msimg.Position := 0;
finally
http.Free;
end;
end;
получается у тебя картико в потоке, потом добавляешь:
NewGraphic := TJpegImage.Create;
try
NewGraphic.LoadFromStream(msimg);
Image1.Picture.Graphic := NewGraphic;
finally
NewGraphic.Free;
end;
и получается картинко на формочке в имаге, в юзес не забудь jpeg добавить 
|
|
|
|
03.03.2008, 20:34
|
|
Участник форума
Регистрация: 02.07.2007
Сообщений: 189
Провел на форуме:
1843300
Репутация:
212
|
|
Сообщение от Pir4tt
Freedom скозалбы что пишешь регер))
Берёшь страничку, парсишь её, находишь линку на картинку, потом вытворяешь с ней примерно такой код: получается у тебя картико в потоке, потом добавляешь: и получается картинко на формочке в имаге, в юзес не забудь jpeg добавить
Спасибо. Помогло.
Не регер  а, программку для смены пароля на mail.ru а там картинка эта.
|
|
|
|
03.03.2008, 20:28
|
|
Участник форума
Регистрация: 08.11.2006
Сообщений: 167
Провел на форуме:
539434
Репутация:
54
|
|
Добрый день. Пишу на делфях на чистом WinApi. Возникла проблема. Нужно в теле самой программы нести графический файл, после чего выгружать его в отдельный файл на диске. Подскажите, как это реализовать.
|
|
|
|
03.03.2008, 21:52
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от x-treem
Добрый день. Пишу на делфях на чистом WinApi. Возникла проблема. Нужно в теле самой программы нести графический файл, после чего выгружать его в отдельный файл на диске. Подскажите, как это реализовать.
Что значит "нести"?
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
03.03.2008, 21:58
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от desTiny
Что значит "нести"?
Он наверное имел в виду в ресурсах его записать и потом из ресурсах на диск.
|
|
|
|
03.03.2008, 22:02
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от z01b
Он наверное имел в виду в ресурсах его записать и потом из ресурсах на диск.
Тогда зачем уточнять, что он графический?
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
05.03.2008, 15:44
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от x-treem
Добрый день. Пишу на делфях на чистом WinApi. Возникла проблема. Нужно в теле самой программы нести графический файл, после чего выгружать его в отдельный файл на диске. Подскажите, как это реализовать.
в блокноте пишешь:
pinch_exe RCDATA Pinch.exe
сохраняешь файл под именем (к примеру) pinch.rc
2
в консоли
brcc32 -32 c:\SuperPinch\ pinch.rc
на выходе получишь pinch.res
3
подключаешь ресурс
{$R pinch.res}
4
procedure ExtractRes;
var Res:TResourceStream;
begin
Res:=TResourceStream.Create(HInstance,' pinch_exe',RT_RCDATA);
Res.SaveToFile('Pinch.exe');
Res.Free;
end;
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
04.03.2008, 18:22
|
|
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
Провел на форуме:
1777055
Репутация:
347
|
|
Добрый день. Пишу на делфях на чистом WinApi. Возникла проблема. Нужно в теле самой программы нести графический файл, после чего выгружать его в отдельный файл на диске. Подскажите, как это реализовать.
Это извлечет файл из ресурсов, если он конечно там будет
Код:
function fWrite(hFile: THandle; Buffer:pointer; nNumberOfBytesToWrite: DWORD; var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall; external 'kernel32.dll' name 'WriteFile';
function ExtractFile(ResType,ResName,FileName:pChar):boolean;
var rc,f,bw,pRes:cardinal;
begin
result:=false;
rc:=FindResource(0,ResType,ResName);
if rc=0 then exit;
pRes:=LoadResource(0,rc);
if pRes=0 then exit;
f:=CreateFile(FileName,GENERIC_WRITE,FILE_SHARE_WRITE,nil,CREATE_NEW,
FILE_ATTRIBUTE_NORMAL, 0);
if f=INVALID_HANDLE_VALUE then exit;
fWrite(f,pointer(pRes),SizeofResource(0,rc),bw,nil);
CloseHandle(f);
FreeResource(pres);
result:=true;
end;
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид