Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как запихнуть в програму изображения??? С ресурсами работать не умею... 
:(
    Опции темы
.DdR aka D7
Дата 11.9.2004, 10:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.9.2004

Репутация: нет
Всего: нет
Собственно сабж...

Как мне запихнуть изображения в программу, и там намертво их поместить, что бы их нельзя было вынуть из нее (ну по крайней мере новичку)... Мне сказали, что это можно сделать как то с помощью ресурсов, но я даже не знаю, что это такое, ни то, что как с ними работать...

Всем спасибо...

ЗЫ: форум перерыл - не нашел....
PM MAIL   Вверх
_hunter
Дата 11.9.2004, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
примерно так:
создай res.rc с содержанием "bmp1 BITMAP "bmp1.bmp""

потом Project->Add to Project...

и все

хотя даже новичок довольно легко покоцает все ресурсы


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
.DdR aka D7
Дата 11.9.2004, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.9.2004

Репутация: нет
Всего: нет
А не кинешь ссылочку на какую нить статейку по ресурсам???

Или не подскажешь, как создать ресурс с кучей граф. файлов, а затем из оттуда извлечь в delphi
PM MAIL   Вверх
_hunter
Дата 11.9.2004, 16:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
ссылки при себе нет ( но можеш по гуглу поискать )
а ресурс с кучей граф. файлов создается путем написания кучи строк вида см. выше
для извлечения их в delphi используй LoadBitmap() -- она возвращает хендл нна БитМап


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
.DdR aka D7
Дата 11.9.2004, 18:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.9.2004

Репутация: нет
Всего: нет
А че мне в гугле то искать??? Как запрос оформить???
PM MAIL   Вверх
Girder
Дата 13.9.2004, 10:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155
Создаеш новый проект и бросаеш на форму: Memo,LebeledEdit(или Edit),OpenDialog и Button.
И заменяешь свой модуль на вот этот:
Код
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   OpenDialog1: TOpenDialog;
   Memo1: TMemo;
   leCount: TLabeledEdit;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var sFile:String;
   ft:integer;
   t:array [0..65535] of byte;
   i,ByteRead,x,n,j,k:integer;
   s:string;
   bh,bl:byte;
begin
Memo1.Clear;
if OpenDialog1.Execute then
 begin
  sFile:=OpenDialog1.FileName;
  ft:=fileopen(sFile,fmOpenRead or fmShareDenyNone);
  if ft<>-1 then
   begin
    i:=FileSeek(ft,0,2);
    if i>0 then
     begin
      try
       n:=StrToInt(leCount.Text);
      except
       n:=20;
       leCount.Text:=IntToStr(n);
      end;
      dec(i);
      FileSeek(ft,0,0);
      x:=SizeOf(t);
      j:=Length(sFile);
      if j>0 then
       repeat
        if sFile[j]='.' then
         begin
          sFile[j]:='_';
          j:=1;
         end;
        dec(j);
       until (j=0);
      s:=ExtractFileName(sFile)+':array [0..'+IntToStr(i)+'] of byte=(';
      Memo1.Lines.Add(s);
      s:='';
      j:=n;
      repeat
       ByteRead:=FileRead(ft,t,x);
       if ByteRead>0 then
        begin
         k:=0;
         repeat
          bh:=t[k];
          bl:=(bh and $f)+$30;
          bh:=(bh shr 4)+$30;
          if bl>$39 then bl:=bl+$7;
          if bh>$39 then bh:=bh+$7;
          s:=s+'$'+Chr(bh)+Chr(bl)+',';
          dec(j);
          if j=0 then
           begin
            Memo1.Lines.Add(s);
            s:='';
            j:=n;
           end;
          inc(k);
         until (k=ByteRead);
        end;
      until (ByteRead<x);
      if j>0 then Memo1.Lines.Add(s);
      j:=Memo1.Lines.Count;
      dec(j);
      while (j>=0)and(trim(Memo1.Lines.Strings[j])='') do
       begin
        Memo1.Lines.Delete(j);
        dec(j);
       end;
      if j>=0 then
       begin
        s:=trim(Memo1.Lines.Strings[j]);
        s[Length(s)]:=')';
        Memo1.Lines.Strings[j]:=s+';';
       end;
      ShowMessage('Файл обработан');
     end else if i=0 then ShowMessage('Файл - Пуст!') else ShowMessage('Ошибка ввода-вывода!');
    FileClose(ft);
   end;
 end;
end;

end.
Цепляеш к обработчику OnClick(для кнопки) процедуру Button1Click.

Данный код предназначен для перевода массива байт(любого файла) в текстовую строку в виде:
Цитата
Disabled_32_32_ico:array [0..765] of byte=(
$00,$00,$01,$00,$01,$00,$20,$20,$04,$00,$00,$00,$00,$00,$E8,$02,$00,$00,$16,$00,
$00,$00,$28,$00,$00,$00,$20,$00,$00,$00,$40,$00,$00,$00,$01,$00,$04,$00,$00,$00,
$00,$00,$00,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$80,$00,$00,$80,$00,$00,$00,$80,$80,$00,$80,$00,
$00,$00,$80,$00,$80,$00,$80,$80,$00,$00,$80,$80,$80,$00,$C0,$C0,$C0,$00,$00,$00,
$FF,$00,$00,$FF,$00,$00,$00,$FF,$FF,$00,$FF,$00,$00,$00,$FF,$00,$FF,$00,$FF,$FF,
$00,$00,$FF,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$06,$64,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$66,$66,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$64,$40,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$66,$44,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$76,$64,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$06,$64,$40,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$66,$40,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$76,$44,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$64,$40,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$76,$44,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$06,$64,$40,$00,$00,$00,$00,$00,$00,$00,$00,$00,$44,$40,$00,$00,$00,
$76,$44,$00,$00,$00,$00,$00,$00,$00,$00,$44,$44,$44,$00,$00,$00,$06,$64,$40,$00,
$00,$00,$00,$00,$00,$44,$44,$46,$60,$00,$00,$00,$00,$64,$40,$00,$00,$00,$00,$00,
$00,$44,$40,$00,$00,$00,$00,$00,$00,$66,$44,$00,$00,$00,$00,$00,$00,$64,$00,$00,
$00,$00,$00,$00,$00,$06,$44,$00,$00,$00,$00,$00,$00,$64,$00,$00,$00,$00,$00,$00,
$00,$06,$44,$00,$00,$00,$00,$00,$00,$66,$00,$00,$00,$00,$00,$00,$00,$06,$44,$00,
$00,$00,$00,$00,$00,$06,$40,$00,$00,$00,$00,$00,$00,$64,$44,$00,$00,$00,$00,$00,
$00,$06,$40,$00,$00,$00,$00,$00,$00,$44,$40,$00,$00,$00,$00,$00,$00,$00,$66,$00,
$00,$00,$00,$00,$00,$44,$00,$00,$00,$00,$00,$00,$00,$00,$00,$66,$40,$00,$00,$00,
$04,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$66,$64,$44,$40,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF,
$FF,$FF,$FF,$FE,$3F,$FF,$FF,$FC,$1F,$FF,$FF,$FC,$1F,$FF,$FF,$FE,$3F,$FF,$FF,$FF,
$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$3F,$FF,$FF,$FC,
$1F,$FF,$FF,$FC,$1F,$FF,$FF,$FC,$1F,$FF,$FF,$FE,$0F,$FF,$FF,$FE,$0F,$FF,$FF,$FF,
$07,$FF,$FF,$FF,$83,$FF,$FF,$FF,$C1,$FF,$FF,$C7,$E0,$FF,$FF,$03,$F0,$7F,$FE,$03,
$F8,$3F,$FC,$07,$FC,$3F,$FC,$3F,$FC,$1F,$FC,$7F,$FE,$1F,$FC,$7F,$FE,$1F,$FC,$7F,
$FE,$1F,$FE,$3F,$FC,$1F,$FE,$3F,$FC,$3F,$FF,$1F,$F8,$3F,$FF,$C7,$E0,$FF,$FF,$F0,
$03,$FF,$FF,$FF,$FF,$FF);


Далее...
Жмеш на кнопку и выбираеш нужный файл после чего копируеш из мемо получившийся текст и вставляеш в свой проект.

Как использовать этот текст:
Код
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls;

const
sort_desc24_bmp:array [0..1653] of byte=(
$42,$4D,$76,$06,$00,$00,$00,$00,$00,$00,$36,$04,$00,$00,$28,$00,$00,$00,$18,$00,
$00,$00,$18,$00,$00,$00,$01,$00,$08,$00,$00,$00,$00,$00,$40,$02,$00,$00,$23,$0B,
$00,$00,$23,$0B,$00,$00,$00,$01,$00,$00,$00,$01,$00,$00,$84,$00,$00,$00,$AD,$00,
$00,$00,$00,$9C,$00,$00,$00,$73,$08,$00,$10,$94,$21,$00,$84,$C6,$6B,$00,$00,$00,
$84,$00,$84,$84,$84,$00,$84,$FF,$84,$00,$21,$00,$94,$00,$00,$00,$C6,$00,$FF,$00,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,
$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$FF,$FF,$FF,$00,$0B,$0B,
$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,
$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,
$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$00,$00,$00,$00,$0B,$0B,$00,$00,$00,$00,$0B,$0B,
$0B,$0B,$0B,$0B,$03,$03,$0B,$0B,$0B,$0B,$0B,$0B,$07,$00,$00,$0B,$0B,$0B,$0B,$01,
$00,$07,$0B,$0B,$0B,$0B,$0B,$03,$08,$05,$03,$0B,$0B,$0B,$0B,$0B,$0B,$01,$00,$0B,
$0B,$0B,$0B,$00,$00,$0B,$0B,$0B,$0B,$0B,$0B,$03,$08,$05,$03,$0B,$0B,$0B,$0B,$0B,
$0B,$07,$00,$00,$00,$00,$00,$00,$07,$0B,$0B,$0B,$0B,$0B,$03,$08,$05,$05,$02,$03,
$0B,$0B,$0B,$0B,$0B,$0B,$01,$00,$0B,$0B,$01,$00,$0B,$0B,$0B,$0B,$0B,$0B,$03,$08,
$05,$02,$02,$03,$0B,$0B,$0B,$0B,$0B,$0B,$07,$00,$0B,$0B,$00,$07,$0B,$0B,$0B,$0B,
$0B,$03,$08,$02,$02,$02,$02,$02,$03,$0B,$0B,$0B,$0B,$0B,$0B,$01,$00,$00,$00,$0B,
$0B,$0B,$0B,$0B,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$0B,$0B,$0B,$0B,$0B,$07,
$00,$00,$07,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$04,$03,$0B,$0B,$0B,$0B,$0B,$0B,
$0B,$0B,$0B,$0B,$00,$00,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$04,$03,$0B,$0B,
$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$01,$00,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,
$04,$03,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,
$0B,$0B,$0B,$0B,$04,$03,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,
$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$04,$03,$0B,$0B,$0B,$0B,$0B,$0B,$06,$06,$06,$06,
$06,$06,$06,$06,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$04,$03,$0B,$0B,$0B,$0B,$0B,$0B,
$06,$06,$0B,$0B,$0B,$0B,$0B,$0A,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$04,$03,$0B,$0B,
$0B,$0B,$0B,$0B,$07,$06,$06,$0B,$0B,$0B,$0B,$06,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,
$04,$03,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$07,$06,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,
$0B,$0B,$0B,$0B,$04,$03,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$07,$06,$06,$0B,$0B,$0B,
$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$04,$03,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$07,
$06,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$04,$03,$0B,$0B,$0B,$0B,$0B,$0B,
$0B,$0B,$0B,$0B,$07,$06,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$04,$03,$0B,$0B,
$0B,$0B,$0B,$0B,$06,$06,$0B,$0B,$0B,$07,$06,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,
$04,$03,$0B,$0B,$0B,$0B,$0B,$0B,$06,$0A,$0B,$0B,$0B,$0B,$07,$06,$06,$0B,$0B,$0B,
$0B,$0B,$0B,$0B,$04,$03,$0B,$0B,$0B,$0B,$0B,$0B,$09,$09,$09,$09,$09,$09,$09,$09,
$09,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$04,$03,$0B,$0B,$0B,$0B);
Disabled_32_32_ico:array [0..765] of byte=(
$00,$00,$01,$00,$01,$00,$20,$20,$04,$00,$00,$00,$00,$00,$E8,$02,$00,$00,$16,$00,
$00,$00,$28,$00,$00,$00,$20,$00,$00,$00,$40,$00,$00,$00,$01,$00,$04,$00,$00,$00,
$00,$00,$00,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$80,$00,$00,$80,$00,$00,$00,$80,$80,$00,$80,$00,
$00,$00,$80,$00,$80,$00,$80,$80,$00,$00,$80,$80,$80,$00,$C0,$C0,$C0,$00,$00,$00,
$FF,$00,$00,$FF,$00,$00,$00,$FF,$FF,$00,$FF,$00,$00,$00,$FF,$00,$FF,$00,$FF,$FF,
$00,$00,$FF,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$06,$64,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$66,$66,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$64,$40,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$66,$44,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$76,$64,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$06,$64,$40,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$66,$40,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$76,$44,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$64,$40,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$76,$44,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$06,$64,$40,$00,$00,$00,$00,$00,$00,$00,$00,$00,$44,$40,$00,$00,$00,
$76,$44,$00,$00,$00,$00,$00,$00,$00,$00,$44,$44,$44,$00,$00,$00,$06,$64,$40,$00,
$00,$00,$00,$00,$00,$44,$44,$46,$60,$00,$00,$00,$00,$64,$40,$00,$00,$00,$00,$00,
$00,$44,$40,$00,$00,$00,$00,$00,$00,$66,$44,$00,$00,$00,$00,$00,$00,$64,$00,$00,
$00,$00,$00,$00,$00,$06,$44,$00,$00,$00,$00,$00,$00,$64,$00,$00,$00,$00,$00,$00,
$00,$06,$44,$00,$00,$00,$00,$00,$00,$66,$00,$00,$00,$00,$00,$00,$00,$06,$44,$00,
$00,$00,$00,$00,$00,$06,$40,$00,$00,$00,$00,$00,$00,$64,$44,$00,$00,$00,$00,$00,
$00,$06,$40,$00,$00,$00,$00,$00,$00,$44,$40,$00,$00,$00,$00,$00,$00,$00,$66,$00,
$00,$00,$00,$00,$00,$44,$00,$00,$00,$00,$00,$00,$00,$00,$00,$66,$40,$00,$00,$00,
$04,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$66,$64,$44,$40,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF,
$FF,$FF,$FF,$FE,$3F,$FF,$FF,$FC,$1F,$FF,$FF,$FC,$1F,$FF,$FF,$FE,$3F,$FF,$FF,$FF,
$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$3F,$FF,$FF,$FC,
$1F,$FF,$FF,$FC,$1F,$FF,$FF,$FC,$1F,$FF,$FF,$FE,$0F,$FF,$FF,$FE,$0F,$FF,$FF,$FF,
$07,$FF,$FF,$FF,$83,$FF,$FF,$FF,$C1,$FF,$FF,$C7,$E0,$FF,$FF,$03,$F0,$7F,$FE,$03,
$F8,$3F,$FC,$07,$FC,$3F,$FC,$3F,$FC,$1F,$FC,$7F,$FE,$1F,$FC,$7F,$FE,$1F,$FC,$7F,
$FE,$1F,$FE,$3F,$FC,$1F,$FE,$3F,$FC,$3F,$FF,$1F,$F8,$3F,$FF,$C7,$E0,$FF,$FF,$F0,
$03,$FF,$FF,$FF,$FF,$FF);

type
 TForm1 = class(TForm)
   Image1: TImage;
   Button1: TButton;
   Button2: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var MS:TMemoryStream;
begin
MS:=TMemoryStream.Create;
MS.Write(sort_desc24_bmp,SizeOf(sort_desc24_bmp));
MS.Position:=0;
image1.Picture.Bitmap.LoadFromStream(MS);
MS.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var MS:TMemoryStream;
begin
MS:=TMemoryStream.Create;
MS.Write(Disabled_32_32_ico,SizeOf(Disabled_32_32_ico));
MS.Position:=0;
Image1.Picture.Icon.LoadFromStream(MS);
MS.Free;
end;
end.


PS: Запомни... Не злоупотребляй этим(или *.res), т.к. большой *.exe - как следствие много не нужного сразу весит в памяти - не есть гуд.

Удачи.


--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
MacTep
Дата 14.9.2004, 22:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4
Girder, это ты, конечно, круто замутил. Но не проще ли работать с dll как с ресурстным файлом?



--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Girder
Дата 15.9.2004, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155
MacTep проше создать файл(или несколько) с палитрами, картинками и т.п. и одну процедуру для работы(считывания в память необходимых данных) с эти файлом(или файлами) и потом... используй эти считанные данные как душе угодно.
Просто вопрос не в этом... ты почитай первый топик, что необходимо .DdR aka D7.



--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
Chyslyvchyk
Дата 15.9.2004, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 446
Регистрация: 9.5.2004

Репутация: 1
Всего: 5
.DdR aka D7, глянь тут, тама мне помогли научить пользоваться ресурсами.


--------------------
Простота - сестра таланта!
PM MAIL   Вверх
.DdR aka D7
Дата 25.9.2004, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.9.2004

Репутация: нет
Всего: нет
Я так понял, что я объяснил - не есть гуд...
Тогда объясните мне, как быть в таком случае - мне нужно запихнуть в программу (ну или не в программу, можно отдельным файлом тож сойдет) несколько картинок - меньше петидесяти smile.gif Сделать это надо так, что бы простой юзер не мог их оттуда старить - мол взять копирнуть и использовать себе...

Вот вроде так...
PM MAIL   Вверх
_hunter
Дата 25.9.2004, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
смотри тему "склеить txt" ( примерно так называется )
и тему "зашифровать txt/файл" ( тоже примерное название )
и объедини


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
The MASTER
Дата 28.9.2004, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Old master)
**


Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5
Цитата
смотри тему "склеить txt"
Да, заодно посмотри я там ответил как соеденить в 1 и записать! Будть внимателен!



--------------------
http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru
PM MAIL WWW ICQ   Вверх
Medved
Дата 29.9.2004, 00:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154
Тема "как работаь с ресурсами" обсуждалась уже двести раз, почему бы просто не посмотреть DRKB. И нам меньше работы и Вам больше пользы.


--------------------
http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...
PM MAIL WWW ICQ Skype GTalk   Вверх
_hunter
Дата 29.9.2004, 11:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
тут ресурсы IMHO не особо подойдут


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Medved
Дата 29.9.2004, 14:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154
Цитата
А не кинешь ссылочку на какую нить статейку по ресурсам???

Или не подскажешь, как создать ресурс с кучей граф. файлов, а затем из оттуда извлечь в delphi

Я к этому...


--------------------
http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...
PM MAIL WWW ICQ Skype GTalk   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0626 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.