Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.013 c
3-60487
Корсар2
2002-07-29 09:48
2002.08.19
Св-ва TIBbTrasaction


3-60530
billybons
2002-07-30 09:58
2002.08.19
сортировка в DBLookupComboBox


14-60804
Mike B.
2002-07-22 15:30
2002.08.19
Гибкие методологии проектирования


4-60916
darkin
2002-06-16 12:31
2002.08.19
как копировать файлы....???


14-60811
Дмитрий Баранов
2002-07-23 18:24
2002.08.19
Проектирование бухгалтерских БД