Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
25.04.2010, 23:10
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
Сообщение от Qb1024
Сделай обработку на нажатии мышкой по объекту и меняй координаты формы вслед за движениями мышью.
думал уже об этом, а по другому никак?
вот что у меня получилось:
Код:
procedure TForm1.Image4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
kod:tpoint ;
begin
getcursorpos(kod);
form1.left:=(kod.X);
form1.Top:=(kod.Y);
end;
форма просто перепрыгивает, а как сделать так чтобы она перетаскивалась?
Ответ найден. выход из положения:
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
Последний раз редактировалось heretic1990; 25.04.2010 в 23:52..
|
|
|
26.04.2010, 02:32
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме:
893829
Репутация:
34
|
|
Сообщение от heretic1990
как сделать так чтобы можно было перемещать, перетаскивать форму за объект Image расположенном на этой форме?
OnMouseMove
Код:
ReleaseCapture;
SendMessage(Form1.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
|
|
|
|
26.04.2010, 02:37
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме:
893829
Репутация:
34
|
|
Сообщение от winlogon.exe
напишите плиз пример программы которая работает с потоками. С исходником плиз(создающая например в мемо цифры от 1 до 10000 в несколько потоков чтобы софт не зависал). Не могу разобраться с потоками.(
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TNewThread = class(TThread)
private
protected
procedure Execute; override;
public
constructor Create(CreateSuspended: Boolean);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
constructor TNewThread.Create(CreateSuspended: Boolean);
begin
inherited Create(CreateSuspended);
end;
procedure TNewThread.Execute;
var StrPage:string;
begin
Form1.Memo1.Tag := Form1.Memo1.Tag+1;
Form1.Memo1.Lines.Add(Inttostr(Form1.Memo1.tag));
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
TNewThread.Create(false); //создаём поток
TNewThread.Create(false);
TNewThread.Create(false);
TNewThread.Create(false);
end;
Тупенький,но за то рабочий пример многопоточности 
Последний раз редактировалось 090808; 26.04.2010 в 02:44..
|
|
|
|
26.04.2010, 08:39
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Короче на сайте отправка мессаг через ajax.
Я с помощью xmlhttp отправляю запрос, все вроде бы нормально, но мои куки в запросе не передаются(вообще любой мой хидер непередается). Вот функция отправки:
function xmlhttp(cook: string):String;
var
xmlHttp:Olevariant;
responseText:Widestring;
begin
with Form1 do
begin
if (Length(url.Text)>0) then
begin
xmlHttp := CreateOleObject('Msxml2.XMLHTTP');
xmlHttp.open('Post', url.text, false);
xmlHttp.setRequestHeader('Content-Transfer-Encoding', 'binary');
xmlHttp.setRequestHeader('X-Requested-With', 'XMLHttpRequest');
xmlHttp.setRequestHeader('Cookie', cook);
xmlHttp.send('to='+id.text+'&itype=0&ititle=&iurl= &action=im_ajax_new&text='+text.lines.text+'&file= ');
result:=xmlHttp.responseText;
showmessage(result);
end;
end;
end;
Уже хз что делать...вчера вроде ещё все норм было 
Последний раз редактировалось HakaR; 26.04.2010 в 09:50..
|
|
|
|
26.04.2010, 10:48
|
|
Участник форума
Регистрация: 12.11.2008
Сообщений: 146
Провел на форуме:
592199
Репутация:
21
|
|
Как решить такую траблу:
Delphi 2007
Indy 10.?? самая последняя
s.text:=http.get('http://odnoclassniki.ru');
Все русские символы приходят вот так
N?DoD?D>D?, N?N?D,D>D,N?D?, N?D?N?D?D,DoN?D?, DoD?D>D>D?D?D?, D?N?N?, D,D?N?N?D,N?N?N?, N?D?D,D2D?N?N?D,N?D?N?, D2N?D., D?D?D?D?DoD>D?N?N?D?D,Do, D?D?D?D?DoD>D?N?N?D?
На сайте кодировка Utf-8
|
|
|
|
26.04.2010, 11:00
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Utf8ToAnsi, не?
procedure TForm1.Button4Click(Sender: TObject);
var res: string;
begin
res := http.Get('http://www.odnoklassniki.ru');
text.Lines.Add(Utf8ToAnsi(res));
end;
Последний раз редактировалось HakaR; 26.04.2010 в 11:04..
|
|
|
|
26.04.2010, 11:12
|
|
Участник форума
Регистрация: 12.11.2008
Сообщений: 146
Провел на форуме:
592199
Репутация:
21
|
|
Сообщение от HakaR
Utf8ToAnsi, не?
Не срабатало.
|
|
|
|
26.04.2010, 12:49
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Сообщение от denjf
Как решить такую траблу:
Delphi 2007
Indy 10.?? самая последняя
s.text:=http.get('http://odnoclassniki.ru');
Все русские символы приходят вот так
N?DoD?D>D?, N?N?D,D>D,N?D?, N?D?N?D?D,DoN?D?, DoD?D>D>D?D?D?, D?N?N?, D,D?N?N?D,N?N?N?, N?D?D,D2D?N?N?D,N?D?N?, D2N?D., D?D?D?D?DoD>D?N?N?D?D,Do, D?D?D?D?DoD>D?N?N?D?
На сайте кодировка Utf-8
Установить себе наконец дельфи 2009
Интересно, зачем тебе http://odno Сlassniki.ru
Последний раз редактировалось GhostOnline; 26.04.2010 в 13:37..
|
|
|
|
26.04.2010, 15:46
|
|
Познающий
Регистрация: 04.11.2007
Сообщений: 51
Провел на форуме:
310791
Репутация:
6
|
|
попробуй в стрим принимать
var
ReplyData: TStringStream;
begin
ReplyData := TStringStream.Create('');
idhttp1.get('http://www.qwe.ru/', ReplyData);
memo1.text := ReplyData.DataString; //
|
|
|
|
26.04.2010, 21:24
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме:
893829
Репутация:
34
|
|
Сообщение от denjf
Как решить такую траблу:
Delphi 2007
Indy 10.?? самая последняя
s.text:=http.get('http://odnoclassniki.ru');
Все русские символы приходят вот так
N?DoD?D>D?, N?N?D,D>D,N?D?, N?D?N?D?D,DoN?D?, DoD?D>D>D?D?D?, D?N?N?, D,D?N?N?D,N?N?N?, N?D?D,D2D?N?N?D,N?D?N?, D2N?D., D?D?D?D?DoD>D?N?N?D?D,Do, D?D?D?D?DoD>D?N?N?D?
На сайте кодировка Utf-8
Решается очень просто.
Проверил,работает.
Код:
idhttp1.get(UTF8Decode('http://odnoclassniki.ru'));
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
