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

Как завершить поток созданный CreateThread?
Гуглил -> не нашел

 

TerminateThread(<Хендл потока>,<Код завершения обычно 0>)
вот ссыль на мсдн http://msdn.microsoft.com/en-us/library/ms686717(VS.85).aspx

 

Что то не работает, можно маленький пример с TerminateThread? (скорее всего что-то не так делаю)

 

а что ты в нее передаешь? то что вернула CreateThread или ThredID это полсдений параметр CreateThread. нужно передавать Хендл потока то что вернет CreateThread или OpenThread
Вот пример

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hThrad:THAndle;

implementation

{$R *.dfm}
Function Thead(P:Pointer):LongInt;
  var
    i:Integer;
  begin
    i:=0;
    while True do
      begin
        Form1.Memo1.Lines.Add(IntToStr(i));
        Inc(i);
        Sleep(1000)
      end;
  end;
procedure TForm1.Button1Click(Sender: TObject);
  var
    thr:Cardinal;
  begin
    hThrad:=createthread(nil,0,@Thead,nil,0,thr); 
  end;

procedure TForm1.Button2Click(Sender: TObject);
  begin
    TerminateThread(hThrad,0);
  end;

end.

 

переменная x<>100 . не равна . а то у тебя получается в цикл входит только тогда х=100, а у тебя должен выходить когда x=100.
вот собственно и всё.

 

Как сделать в дельфи чтоб текст в Label выводился не сразу, а через какой-нибудь промежуток времени? Пример плиз приведите ))

 

процедура sleep(....),где указывается время задержки в милисек.,в данном примере задержка на 1 сек

 

Всем доброго времени суток!

Подскажите как спрятать программку с панели задач, но чтобы форма была видна.

По такому принципу работают виджеты.

Заранее спасибо!

P.S Так пробовал но не полочилось _http://delphi-faq.zoxt.net/143.htm

 

FormOnShow

Code:

ShowWindow(Application.Handle, sw_Hide);

 

Indy в потоке - утечка памяти

Доброго времени суток!

Имею проблему с утечкой памяти.

Код потока:

Code:

procedure Test.Execute;
var
  http : Tidhttp;
  s : string;
  compressor : tIdCompressorZLib;
begin
  http := Tidhttp.Create; http.Request.AcceptEncoding := 'gzip, deflate';
  compressor := tIdCompressorZLib.Create; http.Compressor := compressor;

  s := http.get ('http://yandex.ru');

  http.Free; compressor.Free; exit;
end;

После остановки, по идее, он должен освободить занимаемую память. Но этого не происходит - уже через час бесперебойной работы программы она занимает 50-60 мб. оперативной памяти, против 2 мб. при запуске. Чем дольше работает - тем больше кушает.

Помогите разобраться в проблеме, пожалуйста - программы должны сутками бесперебойно работать, а этого не выходит.

 

Нет, ты не понял... попытаюсь сформулировать:
на CommandGet пишу:
procedure Form1.CommandGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
IvanetsServerMain.ServeFile(AThread, AResponseInfo,
'd:\Server_root\www'+ARequestInfo.Document);
end;
мне нужно чтобы при вводе в строке браузера
http://имя_хоста/index.php выводило полноценную пхп страницу....

 

Всё получилось спасибо, но как вывести в мемо код страницы, сейчас в мемо какие то иероглифы..

 

а так не катит?:

Code:

uses IdHttp;
...
var s:string;h:tIdHttp;
begin
h:=tIdHttp.Create(nil);
memo1.Lines.Clear;
s:=h.Get('http://antichat.ru');
memo1.Lines.Add(s);
h.Free;
...

имхо самый простой и удобный вариант на делфи

 

нет, нужно на winsock

 

пмогите подалуста как мне использовать функцию

function BinToInt(Value: string): Integer;
var
i, iValueSize: Integer;
begin
Result := 0;
iValueSize := Length(Value);
for i := iValueSize downto 1 do
if Value = '1' then Result := Result + (1 shl (iValueSize - i));
end;


в процедуре
procedure TForm1.Button1Click(Sender: TObject);

???!!! понимаю google.ru ответил бы на мой вопрос но вот седян он не хочет давать мне ответа ...

 

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Button1.Caption := IntToStr(BinToInt('10001010'));
end;

 

Какой пакет посылаешь?

 

ну как в твоём примере только сайт и другие данные свои вставил..

 

Если есть:
Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1
Accept-Language: en,ru-RU;q=0.9,ru;q=0.8
Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1
Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0

То убирай это, если же нет -> код в студию, я больше не могу представить что у тебя не так

 

даже если брать тот код что ты выложил в посте #5315 там в мемо выводяться какие то иероглифы..