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

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".