Sende et JPEG billede vha. NMUDP komponent
Jeg har lavet et lille program, hvor man kan loade et JPEG billede. Det er så meningen, at når jeg trykker på en transmit knap, så skal den sende billedet vha. NMUDP komponenten til en anden komputer.... Men jeg bliver ved med at få en fejlen "access violation at 0x77f60b6f: write of address 0x00030fd4"... Er der nogen, som kan se havd der er galt med koden:procedure TTransmitterForm.btnTransmitClick(Sender: TObject);
var
MyStream: TMemoryStream;
Jpg: TJPEGImage;
begin
NMUDP.RemoteHost := Edit1.Text;
NMUDP.RemotePort := StrToInt(Edit2.Text);
//Create a JPEG image and assign the loaded picture
Jpg := TJPEGImage.Create;
Jpg.Assign(Image.Picture);
try
// Create a stream and save the image to the stream
MyStream := TMemoryStream.Create;
Jpg.SaveToStream(MyStream);
MyStream.Position := 0;
NMUDP.SendStream(MyStream);
finally
MyStream.Free;
Jpg.Free;
end;
end;
