Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Еще несколько вопросов...

Автор: Borland_Delphi_6 6.7.2004, 17:31

Я конечно понимаю, что один топик - один вопрос, но чтобы особо не флудить...

1. Есть ли в мире что-то похожее на модул Jpeg, тока по-легче? Желательно намного легче...

2. Есть ли какая-то функция WinAPI, аналог ExtractFilePath
3. Можно ли как-то без использования модуля Dialogs выполнить подобие ShowMessage?

Автор: _hunter 6.7.2004, 18:02

Код


int MessageBox(
    HWND hWnd,	// handle of owner window
    LPCTSTR lpText,	// address of text in message box
    LPCTSTR lpCaption,	// address of title of message box  
    UINT uType  // style of message box
   );

Автор: Borland_Delphi_6 6.7.2004, 19:21

_hunter
Спасибо, катит

Автор: RA 6.7.2004, 20:05

Код


function ExtractFilePath( const Path : String ) : String;
function __DelimiterLast( Str: PChar; Delimiters: PChar ): PChar;
var
    P, F : PChar;
begin
  P := Str;
  Result := P + StrLen( Str );
  while Delimiters^ <> #0 do
  begin
    F := StrRScan( P, Delimiters^ );
    if F <> nil then
    if (Result^ = #0) or (Integer(F) > Integer(Result)) then
       Result := F;
    Inc( Delimiters );
  end;
end;
var P, P0: PChar;
begin
  P0 := PChar( Path );
  P := __DelimiterLast( P0, ':\' );
  if P^ = #0 then
    Result := ''
  else
    Result := Copy( Path, 1, P - P0 + 1 );
end;

Автор: _hunter 6.7.2004, 20:07

сорри за офтоп, но прикольная функция WinAPI

Автор: Borland_Delphi_6 6.7.2004, 21:07

RAdmin
Спасибо, попробую.

_hunter
Какая?

Автор: _hunter 6.7.2004, 21:29

приведенная RAdmin' ом

Автор: December 6.7.2004, 22:33

Цитата

Есть ли в мире что-то похожее на модул Jpeg, тока по-легче? Желательно намного легче...

В смысле? Куда уж легче?!

Автор: Borland_Delphi_6 6.7.2004, 22:50

December
Э-э-э... Я имел ввиду размер модуля... Неохота тащить 200 кб с собой

_hunter
Ага, она из SysUtils выдрана

Автор: RA 7.7.2004, 02:54

Цитата(_hunter @ 6.7.2004, 20:07)

сорри за офтоп, но прикольная функция WinAPI

А шо не тек ? В винАпи Нет Прямой процедуры ExtFPath, чё поделаешь

Автор: Borland_Delphi_6 7.7.2004, 11:42

Ну а насчет jpega кто нить что нить знает? Самая основная проблема

Сейчас прога на API менее 20 кб, а с модулем jpeg - уже 250

Автор: RA 7.7.2004, 16:12

Цитата(Borland_Delphi_6 @ 6.7.2004, 22:50)

_hunter
Ага, она из SysUtils выдрана

Ничёго подпбного, прешите батенька.

ЗЫ: Хотьбы сравнил их для начала.

Автор: Borland_Delphi_6 7.7.2004, 16:28

Ну, нет так нет, но с первого взгляда похоже

Извиняюсь

Автор: dvamaster 7.7.2004, 16:43

Про JPEG могу посоветовать заглянуть в исходник плугина от TotalCommander'а.

Зовется, вроде, avi.wcx...

Там можно, подглядеть как открыть ентот самый JPEG.

Всего несколько строк с WinAPI'шными функциями.

Если надо постучись: [email protected]

Автор: RA 7.7.2004, 16:50

Да кстати насчёт jpeg, можно вместо него использовать BMP при поддержке Zlib

Автор: Borland_Delphi_6 7.7.2004, 20:43

RAdmin

Цитата

Да кстати насчёт jpeg, можно вместо него использовать BMP при поддержке Zlib

Это как? Можно по-подробнее?
dvamaster
Стуканусь позже. А у тя ася есть?