Извините, ничего не найдено.

Doctor Drive · 05.03.2009, 21:43

тоесть

repeat
a := read_byte;
until a = EOF;

правильно? а то я немогу протестить у меня jsr75 нет

и еще
fileopen := '/c:/a.pak';
// i - щетчик
//-----------------
//тута процес
//-----------------
63строка - a1 := jsr75i.write_file(fileopen + i + '.png', nf[i]);

пишет что ошибка

error pngfilter.mpsrc63: identifier '(' is not a function, variable or constant name

вроде все тут правильно....... что за фигня?

NitE · 05.03.2009, 22:07

я даже незнаю о чем разговор - знаю только что почти на всех языках это команда eof (end of file)
но пойдее используя выдуманный мной только что синтаксис должно выглядит так

file=loadfile("shit")
while not eof(file)
read_byte()
wend

Doctor Drive · 05.03.2009, 22:51

там в хелпе написано что возвращает EOF. просто мне надо чтобы тот кто точно знает написал, правильно ли
repeat
a := read_byte;
until a = EOF;

а то вроде компилит, но не знаю, будет ли работать, я у себя проверить не могу.

ViNT · 06.03.2009, 00:18

В jsr75 Eof'а вроде нет.
Нужно читать в строку и обрабатывать её от начала до конца (фунция Length).

ViNT · 06.03.2009, 00:35

В общем, должно быть примерно так:


			
program jsr75tst;

uses jsr75;

var

 i,byte:Integer;

 s:string;

begin

 s:=jsr75.read_file('/c:/other/file'+integertostring(i)+'.png');

 

 for i:=0 to Length(S)-1 do

 begin

  byte:=ord(GetChar(S,i));

  //обработка

  S:=SetChar(S,CHR(Byte),i);

 end;

 

 jsr75.write_file('/c:/other/file.png',s);

 

end.

Doctor Drive · 06.03.2009, 00:42

fileopen := '/c:/a.pak';
// i - щетчик
//-----------------
//тута процес
//-----------------
63строка - a1 := jsr75i.write_file(fileopen + i + '.png', nf[i]);

пишет что ошибка

error pngfilter.mpsrc63: identifier '(' is not a function, variable or constant name

вроде все тут правильно....... что за фигня?

я уже разобрался, там же public static void было

так как ты говорил записать в файл то что из байтов сделал это должно быть write_file или может все таки write_file_a (без переобразований unicode - ASCII)??

Doctor Drive · 06.03.2009, 14:34

теперь собранный jar не хочет спрашивать доступ к фс...
вот прога:


			
program MediaFilter;

uses jsr75i;

var a1, open, i, n, fs, m1, m2, mgsi, byte, ii, inf: integer;

stop: boolean;

nf: array[0..50] of string;

b1: array[0..1] of integer;

b2: array[0..1] of integer;

b3: array[0..1] of integer;

b4: array[0..1] of integer;

b5: array[0..1] of integer;

b6: array[0..1] of integer;

fileopen, endd, ss: string;

ok, exit, back, gtc: command;

begin

b1[0] := 137;

b2[0] := 80;

b3[0] := 78;

b4[0] := 66;

b5[0] := 96;

b6[0] := 130;



b1[1] := 77;

b2[1] := 84;

b3[1] := 104;

b4[1] := 255;

b5[1] := 47;

b6[1] := 00;

repeat

showmenu('PNG Filter', CH_IMPLICIT);

m1 := menuAppendString('PNG Filter');

m2 := menuAppendString('MID Filter');

ok := createcommand('Ok', CM_OK, 1);

exit := createcommand('Exit', CM_EXIT, 1);

addcommand(ok);

addcommand(exit);

repeat gtc := getclickedcommand; until (gtc = ok) or (gtc = exit);

clearform;

removecommand(ok);

removecommand(exit);

if gtc = ok then begin



mgsi := menugetselectedindex;

if mgsi = 0 then endd := '.png';

if mgsi = 1 then endd := '.mid';



 

i := 0;

ii := -1;

showform;

repeat

a1 := formAddTextField('Open File', '/c:/', 70, TF_ANY);

addcommand(ok);





repeat until getclickedcommand = ok;

formremove(fs);

removecommand(ok);

open := 0;

fileopen := formgettext(a1);

open := file_exists(fileopen);

if open <> 1 then begin

fs := formaddstring('Error! File not found...');

addcommand(ok);

repeat until getclickedcommand = ok;

removecommand(ok);

clearform;

end;



until open = 1;

a1 := 0;

clearform;

fs := formaddstring('Please wait...');





ss:=jsr75i.read_file('/c:/other/file'+integertostring(i)+'.png');

repeat

stop := false;

    

    ii := ii + 1;

    a1:=ord(GetChar(ss,ii));

    

    if a1 = b1[mgsi] then begin

    

       nf[i] := SetChar(nf[i],CHR(Byte),inf);

       ii := ii + 1;

       inf := inf + 1;

           a1:=ord(GetChar(ss,ii));

             if a1 = b2[mgsi] then begin

                 nf[i] := SetChar(nf[i],CHR(Byte),inf);

                 ii := ii + 1;

               inf := inf + 1;

                     a1:=ord(GetChar(ss,ii));

                       if a1 = b3[mgsi] then begin

                         repeat

                            nf[i] := SetChar(nf[i],CHR(Byte),inf);

                            ii := ii + 1;

                          inf := inf + 1;

                                  a1:=ord(GetChar(ss,ii));

                                  

                                  if a1 = b4[mgsi] then begin

                                   nf[i] := SetChar(nf[i],CHR(Byte),inf);

                                   ii := ii + 1;

                                  inf := inf + 1;

                                    a1:=ord(GetChar(ss,ii));

                                      if a1 = b5[mgsi] then begin

                                           nf[i] := SetChar(nf[i],CHR(Byte),inf);

                                           ii := ii + 1;

                                                                            inf := inf + 1;

                                                                       a1:=ord(GetChar(ss,ii));

                                                                     if a1 = b6[mgsi] then begin

                                                                                stop := true;

                                                                                nf[i] := SetChar(nf[i],CHR(Byte),inf);

                                                                                i := i + 1;

                                                                                inf := 0;

                                                                     end;

                                                                end;

                                                        end;

                                  

                                  

                                  

                                  

                         until stop = true;

                                   

                       end;

             end;

    end;



until ii = Length(ss)-1;

for n := 0 to i do begin

    jsr75i.write_file_a(fileopen + integertostring(i) + endd, nf[i]);

end;

clearform;

fs := formaddstring('Extracted ' + integertostring(i) + 'files.');

addcommand(ok);

repeat until getclickedcommand = ok;

end;

until gtc = exit;

end.

Doctor Drive · 06.03.2009, 17:34

^^^^^^^^Принцып работы - парсит файл, сравнивая каждый байт. если первые 3 байта совпали с первыми 3 байтами в базе то он начинает извлекать png или mid файл (зависимо от того, что выбрано в меню) извлекает пока не встретятся последние 3 байта. потом далее ищет png или mid в файле (пока не закончится файл).

ViNT · 06.03.2009, 19:17

Какая-то проблема с функцией file_exists, если после нее поставить open:=1, то программа запрашивает доступ и выводит "Please wait...".
Можно попробовать использовать аналогичную функцию из jsr75ex.

Doctor Drive · 06.03.2009, 21:57

решил сделать проверку через
jsr75ex.can_read дык оно не компилит - пишет "mp2.exe error приложение будит закрыто" и звук винды "пумц". пробовал раз 10 нифига...
сделал без проверки на существование... но так стрьомновато(((

ViNT · 07.03.2009, 00:09

Чето я думал, что у меня в этой библиотке была функция file_exists, оказалось забыл сделать. В данном случае can_read даже лучше.
На счет вылета - это давно известный баг MP, иногда помогает установка режима совместимости с Win98.

Doctor Drive · 07.03.2009, 01:07

------------------------------------------------
Дык это не просто вылет.
На обычных вылетах нету звука винды "пумц" и при обычном вылете на 2-3раз компилит.
А тут всегда вылетает когда jsr75ex ставить. не компилит вопше. скока раз не пробовал.
------------------------------------------------
а что за "установка режима совместимости с Win98"??
Это как делается?

ViNT · 07.03.2009, 15:46

Так, причина всетаки была в библиотеке, каким-то образом в архив попал поврежденный класс. Перекомпилил библиотеку, теперь не вылетает. Обновил в теме.

Doctor Drive · 07.03.2009, 19:16

что за "установка режима совместимости с Win98"??

aNNiMON · 07.03.2009, 20:27

Установка режима совместимости с Win98, это эмуляция запуска приложения на конкретной OC.
Чтобы установить совместимость с ОС, нажми правой кнопкой на exe-файл, и выбери в контекстном меню снизу "Свойства". Далее, в новом окне переключись на вкладку "Совместимость", и поставь галочку на "Запустить программу в режиме совместимости с:" и выбери из списка "Windows 98 / Windows Me".