Кодировка названий вложений

Получаю письмо с IdPop3

c заголовками и темами разобрался. теперь разбираю названия вложений:

автор
Content-Transfer-Encoding: base64 Content-Type: image/png; name="=?WINDOWS-1251?Q?=E3=EE=F2=EE=E2=EE_scan_3=5F3.png?=" Content-Disposition: attachment

Получаю вот такое в имени файла: ãîòîâî scan 3_3.png

Пытаюсь получить читабельное имя файла:

		TIdAttachment * a = (TIdAttachment*) m->MessageParts->Items[i];
     	        TEncoding * e = TEncoding::GetEncoding("windows-1251");
		int LOffset=TEncoding::GetBufferEncoding(a->FileName.BytesOf(),e);

Получаю в LOffse = 0 - т.е не выходит определить кодировку хотя я её явно указал

Что я делаю не так ?

Sharkfire
Получаю вот такое в имени файла:

Получаешь в где? У тебя кодовая страница ANSI это действительно 1251?

Posted via ActualForum NNTP Server 1.4

Dimitry Sibiryakov,

получаю в дебагере если смотрю строку имени файла a->FileName
"у меня" это всмысле в системе?

помогите кто чем может)))

Sharkfire
помогите кто чем может)))

По СИ, а у нас форум по Дельфи, по СИ это другой форум

У тебя имя готово_scan_3_3.png

Тут ведь вопрос не к языку привязан а к среде.

Anatoly Podgoretsky
У тебя имя готово_scan_3_3.png

Да. А как его получить?

Мне иногда призодят вложения в koi-8 а иногда в win 1251

Anatoly Podgoretsky
У тебя имя готово_scan_3_3.png

Заинтриговали ))) Подскажите ))

Sharkfire
Да. А как его получить? Мне иногда призодят вложения в koi-8 а иногда в win 1251

Вопрос поставлен неправильно, можно спросить, а как ты его испортил?
Потому что письмо поступает в правильном, не испорченым именем, портится где то дальше, но где и как ты не говоришь, даже не понятно есть ли у тебя Дельфи, может и этого нет?

Anatoly Podgoretsky,

	 POP3->RetrieveHeader(i, m);

	if (m->Date <= LastMailCheckTime) continue; //это письмо пришло после последней проверки? 

	m->Clear();

	POP3->Retrieve(i, m); //получаю письмо

	bool HasFile = false;  //флаг наличия вложения

	for (int i = 0; i < m->MessageParts->Count; i++){
		if(!(m->MessageParts->Items[i]->FileName.IsEmpty())) break;} // есть минимум 1 вложенный файл
                   HasFile=true;
 
	if (!HasFile) continue; //письмо без вложения  - пропускаю его
	
        if (m->From->Address==Email) continue; //письмо из "Отправленных" (gmail)
	
	for (int i = 0; i < m->MessageParts->Count; i++) { //сохраняю все вложения 
		if (m->MessageParts->Items[i]->FileName.IsEmpty()) continue; //эта часть письма не файл

		TIdAttachment * a = (TIdAttachment*) m->MessageParts->Items[i];
		String afilename = CurrentFileFolder+a->FileName;

		TEncoding * e = TEncoding::GetEncoding("utf-8"); //определяю кодировку 
		int LOffset=TEncoding::GetBufferEncoding(a->FileName.BytesOf(),e); 

		if(LOffset==0)//это не utf-8, ввожу имя файла по умочанию
		afilename = CurrentFileFolder+"Входящий_файл_"+IntToStr(Random(100))+ExtractFileExt(afilename); // :(((((((
		
                a->SaveToFile(afilename); //сохраняю
		
               delete a;
		}

Вроде не где не успел "попортить" название файла