raised exception class EIdSocketError with message' Socket Error # 10022 Invalid argument

[eldar]

эта ошибка меня уже достала она появляеться во всех программа которых написал и в чужих исходников она тоже появлеться
вот ошибка

это в делфи
Project Project1.exe raised exception class EIdSocketError with message' Socket Error # 10022 Invalid argument.'. Process stopped.Use Step or Run to continue.

а вот есть запустить скомпилированую программу
вот такая ошибка появляеться
Soket Error # 10022 Invalid argument.

вот код
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, StdCtrls, ExtCtrls, ScktComp;

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
IdHTTP1: TIdHTTP;
ClientSocket1: TClientSocket;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
buffer:TMemoryStream;
begin
buffer:=TMemoryStream.Create;

try
idHTTP1.Connect;
idHTTP1.Get('http://game.arbital.ru/board/userbars/ub3.php?port=27018',buffer);
buffer.SaveToFile('C:\WINDOWS\Temp\ temp.png');
Image1.Picture.LoadFromFile('C:\WIN DOWS\Temp\temp.png');
DeleteFile('C:\WINDOWS\Temp\temp.pn g');
IdHTTP1.Disconnect;
except
on E:Exception do ShowMessage(e.Message);
end;

buffer.Free;
end;

end.




В чём дело то? не понимаю, помогите !!!

[Банзай]

Delphi 5 ? в 5-й версии глюк был с ClientSocket

[eldar]

нет у меня delphi 7

[Stilet]

Почитай ка тут мож поймешь чего:
http://www.westbyte.com/ida/index.phtml?page=faq_ec

[Квэнди]

var f:tfilestream;
begin
f:=tfilestream.Create('c:\temp.png',fmcreate);
idhttp1.Get('http://game.arbital.ru/board/userbars/ub3.php?port=27018',f);
f.Free;
image1.Picture.LoadFromFile('c:\temp.png');

все работает

[eldar]

квэнди
все равно выдаёт ошибку при запуске программы
вот эту ошибку
Project Project1.exe raised exception class EIdSocketError with message' Socket Error # 10022 Invalid argument.'. Process stopped.Use Step or Run to continue.
Хотя изменение произошли в диске c: появился пустой файл temp.png хоть какой то результат
во код
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, StdCtrls, ExtCtrls, ScktComp;

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
IdHTTP1: TIdHTTP;
ClientSocket1: TClientSocket;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var f:tfilestream;
begin

f:=tfilestream.Create('c:\temp.png' ,fmcreate);
idhttp1.Get('http://game.arbital.ru/board/userbars/ub3.php?port=27018',f);
f.Free;
image1.Picture.LoadFromFile('c:\tem p.png');


end;

end.

[Квэнди]

Проверьте на чистом проекте в вложении (поброуйте сначала просто выполнить exe которые в архиве и посмотрите на результат, а потом попробуйте перекомпилировать проект и тоже посомтреть результат

[eldar]

Квэнди
нет точно такой же результат

Project Project1.exe raised exception class EIdSocketError with message' Socket Error # 10022 Invalid argument.'. Process stopped.Use Step or Run to continue.

и если просто запустить exe
то такая же ошибка
Soket Error # 10022 Invalid argument.

[Квэнди]

либо блокируется файрволом запрос, либо какие- то несовместимые версии билиотек

[eldar]

Квэнди
Ну посмотри вот этот исходник на работы если он у тебя работает значит дело в моей delphi