Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Delphi 6. INDY - инструменты. Как??? [D6, Win95/98]

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

Victor N Golutvin (2002-07-18 09:59:00) [1]
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;

Victor N Golutvin (2002-07-17 17:49:00) [2]
To saxon:
>> // IdQuotedPrintableEncoder1.SetKey("a"); //(Это почитай надо или нет и зачем)

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

Спасибо.

saxon (2002-07-17 17:44:00) [3]
В любом случае это фигня:
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:24:00) [4]
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:17:00) [5]
Не знаю помогу ли я чем, но
мне когдато приходилось с ними работать
и я по хелпу разобрался достаточно быстро.
Правдо вот исходников не осталось. :))
Читани хелп! Там по моему все понятно.

Сатир (2002-07-17 17:05:00) [6]
http://www.nevrona.com/Indy
а ещё у меня был где-то файлик с алгоритмами кодирования-декодирования в/из этих кодировок

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »