HiAsm
HiAsm
Вверх ↑
ФорумыНовые компонентыУвеличение скорости загрузки картинок ← Ctrl12345Ctrl →
Этот топик читают: Гость
Ответов: 9906
Рейтинг: 351
#46: 2007-06-29 13:11:18 ЛС | профиль | цитата
nesco, достал ты с zip-ами.
У тебя что, лицензионный winzip
У меня, к примеру, и настроения ставить монстров нет никакого.
карма: 9

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#47: 2007-06-29 13:11:45 ЛС | профиль | цитата
Galkov, да нет, обычный виндячий. А что, я разве много zip-ов кидал. Это только в крайних случаях. И не понял, чем я мог достать? Но если нельзя, то удалю. А в каком архиваторе можно кидать, в rar-е что ли? А аттачи больше ничего не поддерживают.
карма: 22

0
Администрация
Ответов: 15295
Рейтинг: 1519
#48: 2007-06-29 13:17:43 ЛС | профиль | цитата
Galkov писал(а):
У меня, к примеру, и настроения ставить монстров нет никакого.

WinRAR работает почти со всеми архивами сразу. И ZIP в том числе. Кроме того ZIP в Windows XP и без сторонних программ открыть можно - сей компрессор в ОС встроен
карма: 27
https://hiasm.com
0
Ответов: 9906
Рейтинг: 351
#49: 2007-06-29 14:23:36 ЛС | профиль | цитата
7Z, к примеру - тоже. Вот только он свободен, в отличие от остальных.
Про Рошаля я знаю, что он учителей в суд вызывать не будет.
Про авторов winzip-а я этого не знаю.

И что, кто-то обещал, что формат никогда не изменится

карма: 9

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#50: 2007-06-29 14:59:01 ЛС | профиль | цитата
Galkov, я не понял к чему (или к кому) этот вопрос и наезды. Читаем внизу справа
Dilma писал(а):
размер файла не должен превышать 200кб (*.rar, *.zip, *.sha, *.jpg)
Вот когда там будет написано 7Z (или еще чего), вот тогда и будем в него сжимать.
карма: 22

0
Администрация
Ответов: 15295
Рейтинг: 1519
#51: 2007-06-29 15:29:07 ЛС | профиль | цитата
а там 7Z врятли появится. Бесплатный и сжимает лучше... но к сожалению стоит далеко не у каждого и лишние заморочки из-за этого создавать не стоит.
карма: 27
https://hiasm.com
0
Ответов: 574
Рейтинг: 1
#52: 2007-06-29 16:19:38 ЛС | профиль | цитата
nesco, спасибо, работает! Сейчас буду "примерять" ;)
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#53: 2007-06-29 16:23:47 ЛС | профиль | цитата
Yuriy, и как работает? Вот что интересно. Может ну его нафиг эту матрицу. Проще сделать массив эскизов по файлам в папках и загнать их в штатный компонент при помощи, ну... например MT-технологии
карма: 22

0
Ответов: 574
Рейтинг: 1
#54: 2007-06-29 17:05:45 ЛС | профиль | цитата
nesco писал(а):
Yuriy, и как работает?


Да вот проблема... Хочу сразу пакетно загрузить 6 фоток - не получается... Вот, что я не так сделал? 

Add(MainForm,11367671,-8,28)
{
 Left=20
 Top=105
 Width=459
 Height=302
 Caption="Read-JPG/PNG"
 BorderStyle=4
 Position=1
}
Add(Button,12242450,41,154)
{
 Left=200
 Top=245
 Width=70
 Height=25
 TabOrder=-1
 Caption="Load jpg"
 link(onClick,11855633:doEnum,[])
}
Add(StrList,5123957,118,70)
{
 Strings=#26:D:\Фотографии\S3010004.JPG|26:D:\Фотографии\S3010005.JPG|26:D:\Фотографии\S3010006.JPG|26:D:\Фотографии\S3010008.JPG|26:D:\Фотографии\S3010011.JPG|26:D:\Фотографии\S3010017.JPG|
}
Add(Image,9768314,482,98)
{
 Left=10
 Top=10
 Width=140
 Height=100
 ViewStyle=0
}
Add(InlineCode,5016436,258,161)
{
 WorkPoints=#6:doLoad|
 EventPoints=#6:onLoad|
 DataPoints=#5:Width|6:Height|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|47:uses Share,Debug,Windows,ActiveX,KOLComObj,KOL;|0:|5:const|0:|29: IMGCHG_SIZE         = $0001;|29: IMGCHG_VIEW         = $0002;|29: IMGCHG_COMPLETE     = $0004;|29: IMGCHG_ANIMATE      = $0008;|29: IMGCHG_MASK         = $000F;|0:|33: IMGLOAD_NOTLOADED   = $00100000;|33: IMGLOAD_LOADING     = $00200000;|33: IMGLOAD_STOPPED     = $00400000;|33: IMGLOAD_ERROR       = $00800000;|33: IMGLOAD_COMPLETE    = $01000000;|33: IMGLOAD_MASK        = $01F00000;|0:|33: IMGBITS_NONE        = $02000000;|33: IMGBITS_PARTIAL     = $04000000;|33: IMGBITS_TOTAL       = $08000000;|33: IMGBITS_MASK        = $0E000000;|0:|33: IMGANIM_ANIMATED    = $10000000;|33: IMGANIM_MASK        = $10000000;|0:|33: IMGTRANS_OPAQUE     = $20000000;|33: IMGTRANS_MASK       = $20000000;|0:|33: DWN_COLORMODE       = $0000003F;|33: DWN_DOWNLOADONLY    = $00000040;|33: DWN_FORCEDITHER     = $00000080;|33: DWN_RAWIMAGE        = $00000100;|0:|4:type|0:|30: IImgCtx = interface(IUnknown)|46:    ['{3050f3d7-98b5-11cf-bb82-00aa00bdce0b}']|38:    // Initialization/Download methods|66:    function Load(pszUrl:PWChar; dwFlags:DWORD): HResult; stdcall;|91:    function SelectChanges(ulChgOn:DWORD; ulChgOff:DWORD; fSignal:DWORD): HResult; stdcall;|81:    function SetCallback(pCallback:pointer; pUserData:pointer): HResult; stdcall;|42:    function Disconnect: HResult; stdcall;|0:|17:	// Query methods|93:    function GetUpdateRects(prc:PRect; var prcImg:TRect; var pcrc:integer): HResult; stdcall;|102:    function GetStateInfo(var pulState:DWORD; var pSize:TSize; fClearChanges:DWORD): HResult; stdcall;|62:    function GetPalette(var phpal:HPalette): HResult; stdcall;|0:|24:    // Rendering methods|67:    function Draw(_hdc:HDC; var prcBounds:TRect): HResult; stdcall;|105:    function Tile(_hdc:HDC; var pptBackOrg:TPoint; var prcClip:TRect; var psize:TSize): HResult; stdcall;|118:    function StretchBlt(_hdc:HDC; dstX,dstY,dstXE,dstYE,srcX,srcY,srcXE,srcYE:integer; dwROP:DWORD): HResult; stdcall;|5: end;|0:|28: THiAsmClass = class(TDebug)|10:   private|17:   wsz : integer;|17:   hsz : integer;|9:   public|22:     FImgCtx :IImgCtx;|24:     Width   :THI_Event;|25:     Height  :THI_Event; |24:     onLoad  :THI_Event;|46:     procedure doLoad(var dt:TData; idx:word);|5: end;|0:|14:implementation|0:|5:const|64: CLSID_IImgCtx:TGUID = '{3050f3d6-98b5-11cf-bb82-00aa00bdce0b}';|64: IID_IImgCtx:TGUID   = '{3050f3d7-98b5-11cf-bb82-00aa00bdce0b}';|0:|63:procedure MyCallback(pCtx:pointer; pUserData:pointer); stdcall;|56:var pCls:THiAsmClass; stat:DWORD; sz:TSize; bmp:PBitmap;|14://    r:TRect;|35://    memDC : HDC; memBM : HBITMAP;|25://      dx, dy : integer;|5:begin|33:  pCls := THiAsmClass(pUserData);|41:  pCls.FImgCtx.GetStateInfo(stat, sz, 0);|71:  if (sz.cx * 100) div sz.cy > (pCls.wsz * 100) div pCls.hsz then begin|74:     bmp := NewDIBBitmap(pCls.wsz, (pCls.wsz * sz.cy) div sz.cx, pf32bit);|31:     bmp.PixelFormat:= pf32bit;|123:     pCls.FImgCtx.StretchBlt(bmp.Canvas.Handle, 0, 0, pCls.wsz, (pCls.wsz * sz.cy) div sz.cx, 0, 0, sz.cx, sz.cy, SRCCOPY);|5:  end|12:  else begin|74:     bmp := NewDIBBitmap((pCls.hsz * sz.cx) div sz.cy, pCls.hsz, pf32bit);|31:     bmp.PixelFormat:= pf32bit;|123:     pCls.FImgCtx.StretchBlt(bmp.Canvas.Handle, 0, 0, (pCls.hsz * sz.cx) div sz.cy, pCls.hsz, 0, 0, sz.cx, sz.cy, SRCCOPY);|6:  end;|75://  bmp := NewDIBBitmap(pCls.wsz - (2 * dx), pCls.hsz - (2 * dy), pf32bit);|30://  bmp.PixelFormat:= pf32bit;|38://  r := MakeRect(0, 0, sz.cx, sz.cy);|38://  memDC := CreateCompatibleDC ( 0 );|72://  memBM := CreateCompatibleBitmap ( bmp.Canvas.Handle, sz.cx, sz.cy );|34://  SelectObject ( memDC, memBM );|32://  pCls.FImgCtx.Draw(memDC, r);|51://  SetStretchBltMode(bmp.Canvas.Handle, HALFTONE);|32:  _hi_OnEvent(pCls.onLoad, bmp);|11:  bmp.Free;|4:end;|0:|29:procedure THiAsmClass.doLoad;|21:var wName:WideString;|5:begin|31:  wsz := ToIntegerEvent(Width);|34:  hsz := ToIntegerEvent(Height);  |40:  if (wsz = 0) or (hsz = 0 ) then exit; |24:  wName := ToString(dt);|55:  FImgCtx := CreateComObject(CLSID_IImgCtx) as IImgCtx;|33:  FImgCtx.Load(PWChar(wName), 0);|50:  FImgCtx.SetCallback(@MyCallback, pointer(Self));|45:  FImgCtx.SelectChanges(IMGCHG_COMPLETE,0,1);|4:end;|0:|14:initialization|20:  CoInitialize(nil);|12:finalization|17:  CoUninitialize;|0:|4:end.|
 link(onLoad,1660561:doEvent,[])
 link(Width,3405297:Value,[])
 link(Height,15034556:Value,[])
}
Add(Memory,3405297,258,42)
{
 Default=Integer(140)
}
Add(Memory,15034556,265,63)
{
 Default=Integer(100)
}
Add(ArrayEnum,11855633,132,154)
{
 link(onItem,3841382:doEvent1,[])
 link(Array,5123957:Array,[])
}
Add(IndexToChanel,1660561,384,161)
{
 Count=6
 Point(Index)
 link(onEvent1,9768314:doLoad,[(449,167)(449,104)])
 link(onEvent2,5295338:doLoad,[(450,174)(450,146)])
 link(onEvent3,14742910:doLoad,[(450,181)(450,188)])
 link(onEvent4,8735878:doLoad,[(442,188)(442,230)])
 link(onEvent5,4148320:doLoad,[(450,195)(450,265)])
 link(onEvent6,10722084:doLoad,[(432,202)(432,300)])
 link(Index,9232864:Count,[])
}
Add(Image,5295338,482,140)
{
 Left=155
 Top=10
 Width=140
 Height=100
 ViewStyle=0
}
Add(Image,14742910,482,182)
{
 Left=300
 Top=115
 Width=140
 Height=100
 ViewStyle=0
}
Add(Image,8735878,482,224)
{
 Left=155
 Top=115
 Width=140
 Height=100
 ViewStyle=0
}
Add(Image,4148320,482,259)
{
 Left=10
 Top=115
 Width=140
 Height=100
 ViewStyle=0
}
Add(Image,10722084,482,294)
{
 Left=300
 Top=10
 Width=140
 Height=100
 ViewStyle=0
}
Add(Hub,3841382,202,154)
{
 link(onEvent1,9232864:doNext,[(309,160)(309,90)])
 link(onEvent2,5016436:doLoad,[])
}
Add(Counter,9232864,384,84)
{
 Min=-1
 Max=6
 Default=-1
}

Грузится только последнее фото из списка.
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#55: 2007-06-29 17:12:51 ЛС | профиль | цитата
Yuriy, я тут домой сваливаю. Вечерком посмотрю. Навскидку глянул -- сложнова-то что-то получается. Проще должно быть. Меня русские имена волнуют, тут tsdima что-то про них писал в топике про формат PNG. Надо смотреть.
карма: 22

0
Ответов: 574
Рейтинг: 1
#56: 2007-06-29 17:17:50 ЛС | профиль | цитата
Нет, всё нормально. У меня почему-то грузится последняя картинка в списке. Первые 5 - нет.
карма: 0

0
Ответов: 574
Рейтинг: 1
#57: 2007-06-29 17:28:31 ЛС | профиль | цитата
Схему исправил. См. выше. Выдаёт только последнее фото из списка.
карма: 0

0
Ответов: 899
Рейтинг: 43
#58: 2007-06-29 17:55:29 ЛС | профиль | цитата
Это что за прикол такой нажимаю на ссылку меня отправляют на страницу "форумы HiAsm"(http://dev.hiasm.com/xf/index.php)

[size=-2]------ Добавлено в 17:32
Ах вон оно что, когда я по ссылке лазил,Yuriy, ее правил

[size=-2]------ Добавлено в 17:55
а вот так работает, хотя наверно можно и попроще
code_1471.txt
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_1471.txt [6.7KB] [489]
Ответов: 574
Рейтинг: 1
#59: 2007-06-29 17:55:48 ЛС | профиль | цитата
unalex писал(а):
Ах вон оно что, когда я по ссылке лазил,Yuriy, ее правил


Да, я же удалял схему

nesco, я понял в чём дело. Просто все картинки не успевают отрисоваться. Смотри. Поставь на счётчик (++) сообщение. Запусти. Нажимай кнопку загрузки картинок. Появилось сообщение. Жми ок. Подожди капельку и т. д. - загрузятся все фото.
карма: 0

0
Ответов: 574
Рейтинг: 1
#60: 2007-06-29 17:59:29 ЛС | профиль | цитата
unalex писал(а):
а вот так работает, хотя наверно можно и попроще


Да, спасибо!

Ну что сказать, скорость куда лучше! nesco, спасибо тебе большое!
карма: 0

0
ФорумыНовые компонентыУвеличение скорости загрузки картинок ← Ctrl12345Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика