Delphi 6. INDY - инструменты. Как???

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

Всем здравствуйте. Вопрос ну к очень крутым гуру. Тема для меня абсолютно новая и пока беспросветная.
Предположим я имею отдельно взятый текстовый файл в кодировке (одна из кодировок, упоминаемых в INDY-Misc). Очень надо раскодировать в обычный вид. Или наооборот. Обычный текст закодировать, ну там, скажем, в UU или MIME, или еще в куда..
Не поможете примерами и/или объяснениями? Или пошлете туда, где они есть? В самом Делфи пока еще для меня непонятно и маловато.
Авансом спасибо всем, кто поможет. Тех, кто не знает, о чем я - прошу не беспокоиться..

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

http://www.nevrona.com/Indy
а ещё у меня был где-то файлик с алгоритмами кодирования-декодирования в/из этих кодировок

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

Не знаю помогу ли я чем, но
мне когдато приходилось с ними работать
и я по хелпу разобрался достаточно быстро.
Правдо вот исходников не осталось. :))
Читани хелп! Там по моему все понятно.

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

To saxon: а вот у меня по хелпу что-то не очень получается. Наверное, сказывается абсолютное непонимание происходящих процессов. Вот такое вот для пробы написал, естественно - не работает. А как?
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdCoder, IdCoderText, StdCtrls;

type
TForm1 = class(TForm)
IdQuotedPrintableEncoder1: TIdQuotedPrintableEncoder;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
String2Code : String;
begin
String2Code:= "Проверка работы кодера";
Edit1.Text := IdCoder.CodeString(String2Code);
end;

end.

To Сатир: А вот за этот файлик я был-бы очччень благодарен. В принципе, алгоритмы почти все известны (кроме MDxx), можно было-бы и наваять что-то, но сожрет уйму времени. Да и в самих алгоритмах не все ясно. Так что, если он (этот файлик) сохранился - буду ждать.

В любом случае вам обоим спасибо!

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

В любом случае это фигня:
Edit1.Text := IdCoder.CodeString(String2Code);

посмотри что получишь так

procedure TForm1.Button1Click(Sender: TObject);
var
String2Code : String;
begin
IdQuotedPrintableEncoder1.AutoCompleteInput:=True;
// IdQuotedPrintableEncoder1.SetKey("a"); //(Это почитай надо или нет и зачем)
String2Code:= "Проверка работы кодера";
Edit1.Text := IdQuotedPrintableEncoder1.CodeString(String2Code);
end;
и постарайся понять что выдаеться
желаю успеха :)

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

To saxon:
>> // IdQuotedPrintableEncoder1.SetKey("a"); //(Это почитай надо или нет и зачем)

Может, у меня Делфя кривая? Где почитать? Я по F1 получаю хелп по панели компонентов INDY, но там скудновато. Или пока еще разум не навострился. Буду вострить..

Спасибо.

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

To saxon:
Все вроде кодирует. Но после безуспешных поисков методов декодирования я опять "на мели". Порылся в демошках - там и на нюх нет ничего похожего. Короче, вот такой вот код НЕ РАБОТАЕТ!
А как?
procedure TForm1.Button1Click(Sender: TObject);
var
String2Code : String;
begin
IdQuotedPrintableEncoder1.AutoCompleteInput:=True;
IdBase64Encoder1.AutoCompleteInput:=True;
IdUUEncoder1.AutoCompleteInput:=True;
IdXXEncoder1.AutoCompleteInput:=True;

String2Code:= "Test for Проверка работы кодера";

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);
end;

Delphi 6. INDY - инструменты. Как??? Найти похожие ветки