Регистрация Главная Сообщество
Сообщения за день Справка Регистрация

Delphi/synapse

-

Вопросы и ответы, обсуждения

- Ваши вопросы по Pascal/Delphi только в данном разделе

Ответ
 
Опции темы
Старый 24.08.2010, 19:51   #1
 Разведчик
Аватар для RTR
 
RTR никому не известный тип
Регистрация: 13.06.2010
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Delphi/synapse

Немогу понять в чем проблема, как тока уже не изменял всегда чтото нетак, в данном случае выдает ошибку "[Error] Unit1.pas(55): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'"
Подскажите плиз что нетак 123.txt
  Ответить с цитированием
Старый 24.08.2010, 20:46   #2
Reaper
 Фельдмаршал
Аватар для Dinmaite
 
Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
Отправить сообщение для Dinmaite с помощью ICQ
 
По умолчанию Re: Delphi/synapse

А как это ты новую структуру придумал
try
finally
end
finally
end
?

Последний раз редактировалось Dinmaite; 24.08.2010 в 21:18. Причина: опечатка
  Ответить с цитированием
Старый 24.08.2010, 22:23   #3
 Разведчик
Аватар для RTR
 
RTR никому не известный тип
Регистрация: 13.06.2010
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Delphi/synapse

Я в делфи 1 день прогаю. Пока неочень вообще понимаю что куда, взято это из [Ссылки могут видеть только зарегистрированные пользователи. ].
Я уже разобрался с этим, терь новый вопрос как сделать чтобы в итоге сохраняла в txt файл и только определенную строку из страницы, а не всю в html. И еще буду признателен если обьяснят как выдрать из одной страницы кусок кода(ссылку) и добавить элемент на мою,код програмы плиз покажите
  Ответить с цитированием
Старый 25.08.2010, 08:33   #4
Reaper
 Фельдмаршал
Аватар для Dinmaite
 
Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
Отправить сообщение для Dinmaite с помощью ICQ
 
По умолчанию Re: Delphi/synapse

Ай извеняюсь, то я спать хотел и через попу на код взглянул.
Если прогаешь первый день, я бы советовал начать с чего попроще, разобраться с типами данных и циклами для начала.
Для того что бы выдрать кусок со страницы тебе нужено использовать компонент idHttp (с ним проще обьяснять, да и заточен он под такую работу)
Получаем код страницы и вытаскиваем из него все ссылки (для простых страниц, вообще парсеры пишутся либо универсальными, либо специализированными под сайт):
Код:
function TForm1.GetLink(link: string): TStringList;
var
  idHttp1:TidHttp;
  buf,s:string;
  possition:integer;
begin
// вытаскиваем код
  try
    idHttp1:=TidHttp.Create(Form1);
    buf:=idHttp1.Get(link);
  finally
    idHttp1.Free;
  end;
//ищем и вытаскиваем ссылки
  result:=TStringList.Create;
  possition:=pos('<a href="',buf);
  while possition>0 do
    begin
      delete(buf,1,possition+8);
      result.Add(copy(buf,1,pos('">',buf)-1));
      delete(buf,1,pos('">',buf)+1);
      possition:=pos('<a href="',buf);
    end;
end;
В аттаче полный исходник.


Ну а как добавить элементы на свою страницу оставляю на твоей совести.
Вложения
Тип файла: rar Учебный пример.rar (1.6 Кб, 4 просмотров)

Последний раз редактировалось Dinmaite; 25.08.2010 в 08:40.
  Ответить с цитированием
Старый 25.08.2010, 14:46   #5
 Разведчик
Аватар для shaker101
 
shaker101 никому не известный тип
Регистрация: 17.04.2010
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Отправить сообщение для shaker101 с помощью ICQ Отправить сообщение для shaker101 с помощью Skype™
 
По умолчанию Re: Delphi/synapse

Цитата:
Сообщение от RTRПосмотреть сообщение
Я в делфи 1 день прогаю. Пока неочень вообще понимаю что куда, взято это из [Ссылки могут видеть только зарегистрированные пользователи. ].
Я уже разобрался с этим, терь новый вопрос как сделать чтобы в итоге сохраняла в txt файл и только определенную строку из страницы, а не всю в html. И еще буду признателен если обьяснят как выдрать из одной страницы кусок кода(ссылку) и добавить элемент на мою,код програмы плиз покажите

Ты хоть знаешь где THTTP лежит? (\)
  Ответить с цитированием
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Программа] Delphi 7 portable Amba Pascal/Delphi 0 08.08.2010 18:28
[Руководство] Dll-Injecting on Delphi shagart Pascal/Delphi 1 02.12.2008 12:45

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 13:37.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net