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

Как скачать файл (картинку) с помощью сокетов?

Делаю так:

Code:

se:=
'GET /antichat/pic/logo.gif HTTP/1.1'+#13#10+
'Host: forum.antichat.ru'+#13#10+
'User-Agent: Mozilla'+#13#10+
'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'+#13#10+
'Accept-Language: ru'+#13#10+
'Accept-Charset: utf-8;q=0.7,*;q=0.7'+#13#10+
'Connection: Close'+#13#10#13#10;

send_packs('forum.antichat.ru',80,se,ret);

В итоге в переменой находится ответ сервера с HTTP заголовками и телом картинки, и как ее сохранить?

 

HTL достаешь картинку-сохроняешь и загружаешь в image/
Какой формат картинки?
http://forum.antichat.ru/showpost.php?p=2503425&postcount=7838

 

Ищешь в ответе строку "\r\n\r\n". К найденной позиции прибавляешь 4-ре. В результате, выделяешь контент с указанной позиции, без заголовка. Сохраняешь контент в файл и задаёшь ему нужное расширение. Картинка готова.

 

Изврат... Человек и так её получил в нормальном ыиде, зачем же изобратать велосипед! =)
Я вот так делал:

Code:

Procedure GetImage(S1:String);
Var
  Err1:String;
  MStr:TMemoryStream;
  Bmp:TBitmap;
  Jpg:TJPEGImage;
Begin
  Jpg:=TJPEGImage.Create;
  Bmp:=TBitmap.Create;
  Err1:='';
  IdHTTP:=TIdHTTP.Create(Nil);
  IdHTTP.Request.Host:='vkontakte.ru';
  IdHTTP.Request.Referer:='http://vkontakte.ru/index.php';
  MStr:=TMemoryStream.Create;     // MemoryStream erzeugen
  Try
    S1:='http://vkontakte.ru/captcha.php?s=1&sid='+S1;
    IdHTTP.Get(S1,MStr);          // Bild in MemoryStream laden
    MStr.Seek(0,soFromBeginning); // MemoryStream zeiger auf 0
    Jpg.LoadFromStream(MStr);     // Daten in JPEG einlesen
    Bmp.Assign(Jpg);
  Except
    On EIdHTTPProtocolException Do
      Err1:='Error [Jpeg] :'+IdHTTP.ResponseText;
  End;

  MStr.Free;                    // Resourcen freigeben
  IdHTTP.Free;
    Form1.Image1.Canvas.Draw(0,0,Bmp);
  Bmp.Free;
  Jpg.Free;
  Beep;
End;

 

как в delphi 7 сделать так чтобы при нажатии на кнопку тебя перекидывало на сайт который ты ввёл в поле для ввода?

 

ShellExecute(Form1.Handle,PAnsiChar('open'),PAnsiChar('www....'),Nil,Nil,SW_SHOW);

 

все верно? ето под dll

 

С помощью Инди - да, все так просто. Но все таки в Инди поиск тела документа (картинки) происходит подобно тому, как подсказали делать выше.

 

Ну как бы тема о Delphi, значит автор на Delphi и получил, а не на асме например, т.ч. зачем спускаться до более низкого уровня и разбирать структуры...
Если я напишу через synapse или что-то ещё, смысл не изменится.

 

Проблема со сменой ID в TIcqClient[Delphi]

Следующим сообщением пишут

Пишу по коду выше...
объявляю процедуру
procedure ICQClient1.MaskIntoQIP(BuildNum : LongWord);
нажимаю Shift Ctrl C чтоб шаблончик сгенерировал и тут вылезает ошибка

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

 

С ошибкой вроде разобрался...

вписываю код

и в проекте значение кнопки:

Но меняет только версию квипа(
и ещё не распознает

 

Помогите связать массив с фалом на паскале. Написал двумерный масси и не могу связать его с файлом. Задача заключается в том что бы создать матрицу чисел где каждая строка матрицы записана в отдельной строке и всё это записать в другой текстовой файл где номера строк, элементы в каждом из которых одинаковы.

Code:

Program massfail;
uses crt;
const m=10;
type mas=array[1..m, 1..m] of integer;
var massiv: mas;
procedure InsertMas(var mass: mas; n:integer);
var i,j:integer;
begin
 randomize;
 for i:=1 to n do
   for j:=1 to n do
     mass[i,j]:=random(10);
end;
procedure PrintMas(mass:mas; n:integer);
var i,j:integer;

begin
  for i:=1 to n do
    for j:=1 to n do
       begin
        gotoxy(j*3,i);
        write(mass[i,j]:2);
       end;
end;
Begin
  clrscr;
  InsertMas(massiv,m);
  PrintMas(massiv,m);
readln;
end.

Подскажите как дальше сделать, пожалуйста.

 

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

 

Выражайте свой вопрос яснее... если эдит не заполнить программа и так не завершается

 

вот:
надо 5 едитов туда нужно вписать цифры и потом найти их сред.арф , но иногда 1 или 2 числел может не быть тоесь буде 3 едита например заполнено, и тоесть нужно уже делить не на 5 а на 3 , и вот надо что нехнаю как это реализовать

 

Подкиньте код процедуры на паскале, для получения системной директории %windir% ?

 

Code:

Count:=5;
X1:=StrToIntDef(Edit1.Text,-1);
If X=-1 Then Dec(Count);

А лучше сделай UpDown и создавай/убивай нужное кол-во Edit при изменении показателей

 

как обрабатывать dllentrypoint ?

 

гуглом
http://www.google.ru/search?q=dllentrypoint&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:rufficial&client=firefox

 

Как сделать чтоб 1 столбец с БД отоброжался в первом мемо.2 столбец во втором мемо?