搜索 社区服务 统计排行 帮助
发帖 回复
« 返回列表
«12»
共2页
上一主题下一主题
  • 1967阅读
  • 20回复

[求助]加入图片当作字幕

 楼层直达
MeteorRain
级别: 工作组
注册时间:
2003-08-26
在线时间:
13小时
发帖:
6600
只看该作者 15楼 发表于: 2004-07-15
引用
最初由 wangh 发布
在ass-specs文档中

这个UUE编码到是明白了，不过还是不知道该怎么用和用在哪里啊……
已经有点头绪了。我来试试看……
催片请点此处： http://bbs.popgo.org/bbs/read.php?tid=502402&displayMode=1#19103164
回复 引用
举报顶端
kiliga
级别: 侠客
注册时间:
2002-12-02
在线时间:
0小时
发帖:
431
只看该作者 16楼 发表于: 2004-07-16
用PR不是也可能实现吗……
回复 引用
举报顶端
Siki
级别: 新手上路
注册时间:
2004-01-29
在线时间:
0小时
发帖:
169
只看该作者 17楼 发表于: 2004-07-16
引用
最初由 kiliga 发布
用PR不是也可能实现吗……


现在不是在炫耀谁会的东西多， 是在研究SSA的图片的加载...
在研究...懂么....


PS：刚刚加载了一下...没看到效果 >_<
回复 引用
举报顶端
MeteorRain
级别: 工作组
注册时间:
2003-08-26
在线时间:
13小时
发帖:
6600
只看该作者 18楼 发表于: 2004-07-16
引用
最初由 Siki 发布
刚刚加载了一下...没看到效果 >_<
正常……因为我的程序有一点点问题……放出v2……
但是挂进ssa还是不能显示……我怀疑vobsub自己有问题。谁去研究一下vobsub的source code……
催片请点此处： http://bbs.popgo.org/bbs/read.php?tid=502402&displayMode=1#19103164
回复 引用
举报顶端
MeteorRain
级别: 工作组
注册时间:
2003-08-26
在线时间:
13小时
发帖:
6600
只看该作者 19楼 发表于: 2004-07-16
复制代码
  1. {ssa的UUE专用编码器，请使用virtual pascal 2.1编译。
  2. 这个程序没有对文件长度进行判断……麻烦谁修改一下……
  4. CopyRight (-_-) 2004 MeteorRain, MISL, release under GNU}
  5. program ssa_uue_encode_tool;
  6. uses sysutils;
  7. type
  8. foc = file of char;
  9. var
  10. inf:foc;
  11. ouf:text;
  12. infn,oufn:string;
  13. data0:string[3];
  14. data:array[0..3] of byte absolute data0;
  15. edata0:string[4];
  16. edata:array[0..4] of byte absolute edata0;
  17. szbuffer:string[80];
  18. procedure read2(var f:foc; var ch1:char; var ch2:char; var ch3:char);
  19. begin
  20. if not eof(f) then read(f, ch1) else ch1 := #0;
  21. if not eof(f) then read(f, ch2) else ch2 := #0;
  22. if not eof(f) then read(f, ch3) else ch3 := #0;
  23. end;
  24. begin
  25. write('Infile:');
  26. readln(infn);
  27. if not fileexists(infn) then begin
  28. writeln('File not found');
  29. halt(-1);
  30. end;
  31. {write('Outfile:');
  32. readln(oufn);}
  33. oufn := infn + '.txt';
  34. assign(inf, infn);
  35. assign(ouf, oufn);
  36. reset(inf);
  37. rewrite(ouf);
  38. szbuffer := '';
  39. while not eof(inf) do begin
  40. data0 := #0#0#0;
  41. edata0 := #0#0#0#0;
  42. read2(inf, data0[1], data0[2], data0[3]);
  43. edata[1] := data[1] shr 2 + 33;
  44. edata[2] := data[1] shl 4 and 63 + data[2] shr 4 + 33;
  45. edata[3] := data[2] shl 2 and 63 + data[3] shr 6 + 33;
  46. edata[4] := data[3] and 63 + 33;
  47. szbuffer := szbuffer + edata0;
  48. if szbuffer[0] >= #80 then begin
  49. writeln(ouf, szbuffer);
  50. szbuffer := '';
  51. end;
  52. end;
  53. if szbuffer[0] > #0 then
  54. writeln(ouf, szbuffer);
  55. close(inf);
  56. close(ouf);
  57. writeln('Output OK');
  58. end.
催片请点此处： http://bbs.popgo.org/bbs/read.php?tid=502402&displayMode=1#19103164
回复 引用
举报顶端
arashilin
级别: 新手上路
注册时间:
2004-05-24
在线时间:
0小时
发帖:
94
只看该作者 20楼 发表于: 2004-07-21
老天……看得一阵头昏
开始后悔问了这个让人头大的问题
让各位大人操心了……
回复 引用
举报顶端
发帖 回复
« 返回列表
«12»
共2页
上一主题下一主题
快速回复
限150 字节
上一个 下一个