Текущий архив: 2002.08.19;
Скачать: CL | DM;

Вниз

Это действительно проблема!   Найти похожие ветки 

← →
neodiX ©   (2002-06-04 12:28) [0]

Всем привет!
Приведен пример с компонентами Indy idTCPClient and idTCPServer. После того как сервер получает jpg выбрасывается ошибка "JPEG error #50".
- Соединение уже установлено
- Посылаем jpg

procedure TForm1.SendClick(Sender: TObject);
var ms:tmemorystream;
j:tjpegimage;
s:string;
begin
MS:= TMemoryStream.Create;
J := TJPEGImage.Create;
J.LoadFromFile("c:\1.jpg");
J.SaveToStream(MS);
MS.Position := 0;
SetString(S, nil, MS.Size);
MS.Read(Pointer(S)^, MS.Size);
idtcpclient1.Writeln("i" + S);
end;

- Принимаем jpg

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var s:string;
mems:tmemorystream;
jpg:tjpegimage;
begin
s:= athread.Connection.ReadLn;
if s[1]="i" then
delete(s,1,1);
MemS := TMemoryStream.Create();
Jpg := TJPEGImage.Create();
try
MemS.Clear;
MemS.Position := 0;
MemS.WriteBuffer(Pointer(S)^, Length(S));
MemS.Position := 0;
Jpg.LoadFromStream(MemS); //!!! Zdes oshibka "JPEG error #50". !!!
//Image1.Picture.Graphic := Jpg; or
Image1.Picture.Assign(Jpg);
finally
MemS.Free();
Jpg.Free();
end;
end;

Посылал Стрим сразу тоже ошибка.
Вопрос:Почему происходит такая ошибка, ведь практически все правильно и как ее исправить?
Заранее спасибо за ответы.

---

← →
neodiX ©   (2002-06-04 16:46) [1]

Если чо плохо пояснил - пишите.

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.19;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.014 c