Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Вниз

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;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.027 c
3-95236
grig
2002-07-08 15:49
2002.07.29
Как узнать, включены ли в TTable диапазоны (SetRange)


4-95624
Александр_
2002-05-21 10:12
2002.07.29
Копирование файла


14-95563
Polygon
2002-07-03 13:58
2002.07.29
IBX for Kylix 2


1-95340
Slawik
2002-07-15 10:33
2002.07.29
Отладка приложения


14-95513
VictorT
2002-07-02 11:15
2002.07.29
Фотки со встреч мастаков





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский