主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

向下

德尔福6。 INDY - 工具。 怎么??? 找到类似的分支


Victor N Golutvin   (2002-07-17 15:36) [0]

大家好。 好吧,问题是非常酷的大师。 我的主题是全新的,仍然没有希望。
假设我在编码中有一个单独的文本文件(INDY-Misc中提到的编码之一)。 解码通常的形式是非常必要的。 反之亦然。 简单文本是编码的,例如,在UU或MIME中,或其他地方。
不帮助举例和/或解释? 或发送到他们的位置? 在Delphi中,它本身仍然是不可理解的,对我来说还不够。
在此之前,感谢所有愿意提供帮助的人。 那些不知道我的意思的人 - 请不要担心..



Сатир   (2002-07-17 17:05) [1]

http://www.nevrona.com/Indy
我还有一个文件,其中包含编码解码算法到/来自这些编码的文件



saxon   (2002-07-17 17:17) [2]

我不知道我是否会帮助你,但是
我曾经和他们一起工作过
我很快就想出来了。
说实话,没有剩下的源代码。 :))
Chitani帮忙! 我明白了一切。



Victor N Golutvin   (2002-07-17 17:24) [3]

对撒克逊人来说:在我的帮助下,事情并不是很成功。 可能会影响对过程的绝对缺乏理解。 这里是样本写的,当然 - 不起作用。 怎么样?
unit Unit1;

接口

使用
Windows,消息,SysUtils,变体,类,图形,控件,表单,
Dialogs,IdBaseComponent,IdCoder,IdCoderText,StdCtrls;

类型
TForm1 = class(TForm)
IdQuotedPrintableEncoder1:TIdQuotedPrintableEncoder;
Edit1:TEdit;
Button1:TButton;
过程Button1Click(Sender:TObject);

私立
{私人声明}
公开
{公开声明}
结束;

VAR
Form1:TForm1;

履行

{$ R * .dfm}

过程TForm1.Button1Click(Sender:TObject);
VAR
String2Code:String;
开始
String2Code:=“编码器操作检查”;
Edit1.Text:= IdCoder.CodeString(String2Code);
结束;

结束。

对Satir:但对于这个文件,我非常感激。 原则上,几乎所有的算法都是已知的(MDxx除外),它可以挖出一些东西,但它会浪费很多时间。 在算法本身中,并非一切都很清楚。 所以,如果它(这个文件)被保留 - 我会等。

无论如何,谢谢你们俩!




saxon   (2002-07-17 17:44) [4]

无论如何,这是垃圾:
Edit1.Text:= IdCoder.CodeString(String2Code);

看看你得到了什么

过程TForm1.Button1Click(Sender:TObject);
VAR
String2Code:String;
开始
IdQuotedPrintableEncoder1.AutoCompleteInput:= True;
// IdQuotedPrintableEncoder1.SetKey(“a”); //(这是必要的还是没有,为什么)
String2Code:=“编码器操作检查”;
Edit1.Text:= IdQuotedPrintableEncoder1.CodeString(String2Code);
结束;
并试着了解什么是突出的
祝你成功:)



Victor N Golutvin   (2002-07-17 17:49) [5]

撒克逊人:
>> // IdQuotedPrintableEncoder1.SetKey(“a”); //(这是必要的还是没有,为什么)

也许我Delfya曲线? 在哪里阅读? 我得到F1组件面板INDY的帮助,但有点差。 或者,就目前而言,头脑并不紧张。 我会狂欢..

谢谢。



Victor N Golutvin   (2002-07-18 09:59) [6]

撒克逊人:
一切似乎编码。 但在搜索解码方法失败后,我再次“破产”。 在演示中崭露头角 - 没有任何类似的气味。 简而言之,这段代码不起作用!
怎么样?
过程TForm1.Button1Click(Sender:TObject);
VAR
String2Code:String;
开始
IdQuotedPrintableEncoder1.AutoCompleteInput:= True;
IdBase64Encoder1.AutoCompleteInput:= True;
IdUUEncoder1.AutoCompleteInput:= True;
IdXXEncoder1.AutoCompleteInput:= True;

String2Code:=“测试编码器操作检查”;

Edit1.Text:= copy(IdQuotedPrintableEncoder1.CodeString(String2Code),3,255);
Edit5.Text:= IdQuotedPrintableDecoder1.CodeString(Edit1.Text);

Edit2.Text := copy(IdBase64Encoder1.CodeString(String2Code),3,255);
Edit6.Text:= IdBase64Decoder1.CodeString(Edit2.Text);

Edit3.Text:= copy(IdUUEncoder1.CodeString(String2Code),3,255);
Edit7.Text:= IdUUDecoder1.CodeString(Edit3.Text);

Edit4.Text:= copy(IdXXEncoder1.CodeString(String2Code),3,255);
Edit8.Text:= IdXXDecoder1.CodeString(Edit4.Text);
结束;



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

楼上









内存:0.58 MB
时间:0.035 c
3-95195
ProfiUgl
2002-07-05 08:38
2002.07.29
提供有关选择普通DBLookUpCombo的建议....


1-95304
数码网络
2002-07-17 04:15
2002.07.29
截取消息


8-95457
德米特里卡塔耶夫
2002-01-26 19:12
2002.07.29
是否有可能在Delphi上写一个_competitive_三维引擎?


1-95437
Labutin
2002-07-16 21:31
2002.07.29
QuickReport


1-95301
RV
2002-07-16 11:01
2002.07.29
控制台窗口,获取信息





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法文
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本性玩偶 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 泰米尔人 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский