ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 417 из 671 « Первая < 317367407 413 414 415 416 417 418 419 420 421 427467517 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 25.08.2009, 01:12
cremator (c)
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
С нами: 9416345

Репутация: 165
По умолчанию
Побайтная запись в файл)
Код:
procedure TForm1.FormCreate(Sender: TObject);
var MyFile:file of byte; a,b:byte;
begin
  AssignFile(MyFile, 'C:\Test.txt');
  ReWrite(myFile);
  a:=66;
  b:=67;
  write(myfile,a);
  write(myfile,b);
  CloseFile(myFile);

  FileMode := fmOpenRead;
  Reset(myFile);

  while not Eof(myFile) do
  begin
    Read(myFile, a);
    ShowMessage(IntToStr(a));
  end;

  CloseFile(myFile);
end;
зы: он же текстовый?!?!
𝕏 Twitter Reddit Telegram Копировать ссылку
Последний раз редактировалось cremator (c); 25.08.2009 в 01:16..
 
Ответить с цитированием

  #2  
Старый 25.08.2009, 02:23
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
С нами: 9626394

Репутация: 357


По умолчанию
Отправляю пост запрос через Winsock
Примерно так:

Код:
Postdata := 'POST...'
len:=send_packs(host,StrToInt('80'),AnsiToUTF8(postdata),ret);
Все уходит, но если в Postdata добавить рус буквы, то сервер дает ошибку 400, значит что AnsiToUTF8(); Не переделывает Ansi в уникод....

Как это можно исправить?
 
Ответить с цитированием

  #3  
Старый 25.08.2009, 02:50
warlok
Постоянный
Регистрация: 18.02.2008
Сообщений: 368
С нами: 9594385

Репутация: 386
По умолчанию
Цитата:
Я хотел добавить запись в фаил Hosts.
а какая разница то? файл то неиспориться если ты в него что то запишеш, просто укажи его вместо тхт
 
Ответить с цитированием

  #4  
Старый 25.08.2009, 03:05
cremator (c)
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
С нами: 9416345

Репутация: 165
По умолчанию
НTL, мб русские данные urlencode обработать?
 
Ответить с цитированием

  #5  
Старый 25.08.2009, 03:18
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
С нами: 9626394

Репутация: 357


По умолчанию
А не все работает
Последний раз редактировалось НTL; 25.08.2009 в 03:44..
 
Ответить с цитированием

  #6  
Старый 25.08.2009, 11:50
UnknownZZZ
Новичок
Регистрация: 13.08.2009
Сообщений: 13
С нами: 8813038

Репутация: 1
По умолчанию
спасибо 2pick!!!!!!!!!
 
Ответить с цитированием

  #7  
Старый 25.08.2009, 13:17
S[N]EP
Познающий
Регистрация: 29.08.2008
Сообщений: 86
С нами: 9315345

Репутация: 53
По умолчанию
Народ помогите! пытаюсь через программу проголосовать на ла2топе....куки забрал а вот как получить капчу? я делал воттак:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var   Http  : TidHttp;
  CM    : TidCookieManager;
  Data  : TStringList;
  Strpage :string;
  Strpagse :string;
  UserID,  UserName  :  String;
  e,f,r : integer;
  sd,cooks : string;
  streamresponse:TMemoryStream;
begin
 Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    CM := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := CM;
    Http.HandleRedirects := false;
Http.Request.Host:='l2top.ru';
Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
Http.Request.Accept:='image/png,image/*;q=0.8,*/*;q=0.5';
Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
http.Request.AcceptEncoding:='gzip,deflate';
http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
http.Request.Referer:='http://l2top.ru/vote/1303/';
http.Request.CustomHeaders.Text:='Cookie:' +memo3.Text;
e:=pos('/getimg.php',memo1.Text);
cooks:=copy(memo1.Text,e,17);
memo2.Lines.Add(cooks);
sd:=memo2.Text;
f:=pos('?',memo2.Text);
sd:=copy(memo2.Text,f,4);
memo2.Text:='';
memo2.Lines.Add(sd);
streamresponse:=TMemoryStream.Create;
idhttp1.Get('http://l2top.ru/vote/1303/getimg.php'+memo2.Text,streamresponse);
streamresponse.SaveToFile('C:\reserv1.jpeg');
form1.Image1.Picture.LoadFromFile('C:\reserv1.jpeg');
DeleteFile('С:\reserv1.jpeg');


end; 
в Memo3 - у меня куки
а в memo2 - ссылка на капчу она каждый раз меняется по етому её приходится брать из кода странички...

когда нажимаю на кнопку выдаёт ошибку <HTTP> что я нетак сделал?
 
Ответить с цитированием

  #8  
Старый 25.08.2009, 13:57
Dr.Perry_Cox
Познающий
Регистрация: 24.05.2009
Сообщений: 46
С нами: 8929761

Репутация: 27
По умолчанию
Помогите советом,я недавно начал изучения Паскаля и вот такой вопрос:я читал про идентификаторы и не очень понял:идентификатором может быть любое,так сказать "слово" или это зависит от программы которую пишут?
 
Ответить с цитированием

  #9  
Старый 25.08.2009, 16:07
=Zeus=
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
С нами: 8817310

Репутация: 108
По умолчанию
Нет, от программы ничего не зависит ))
 
Ответить с цитированием

  #10  
Старый 25.08.2009, 16:08
Dr.Perry_Cox
Познающий
Регистрация: 24.05.2009
Сообщений: 46
С нами: 8929761

Репутация: 27
По умолчанию
Получается идентификатором может быть любое "cлово"?
 
Ответить с цитированием
Ответ
Страница 417 из 671 « Первая < 317367407 413 414 415 416 417 418 419 420 421 427467517 > Последняя »



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2571 20.06.2026 14:48
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 6 (пользователей: 0 , гостей: 6)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.